bai1; 19/15 + 31/23 - 4/15 - 8/23
ai tra loi nhanh thi minh se kb va mong cac ban tra loi cau hoi cua minh
va hay kb voi minh neu ban muon
1) Cau lenh de gan ten tep 'bai1.txt', cho bien tep f la:
A. assign(bai1.txt,f); B. assign(f,bai1.txt);
C. assign('bai1.txt',f); D. assign(f,'bai1.txt');
Viết chương trình đọc từ tệp BAI1.INP số nguyên dương N . Tính tổng các số lẻ từ 1 đến N. Ghi kết quả vào tệp BAI1.OUT .
BA1.INP. BAI1.OUT
6. 9
Program HOC24;
var i,n: integer;
t: longint;
f1,f2: text;
begin
assign(f1,'BAI1.INP');
reset(f1);
read(f1,n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
close(f1);
assign(f2,'BAI1.OUT');
rewrite(f2);
write(f2,t);
close(f2);
end.
Viết chương trình thực hiện các yêu cầu sau:
1.Đọc một số tự nhiên n<2 tỉ từ file bai1.int sau đó tính tổng các chữ số của số vừa đọc và ghi vào file bai1.out
2.Nếu kết quả ở câu 1 là số:
Lẻ: ghi vào file bai1.out "khong thuc hien"
Chẵn: phân tích số đó thành tổng hai số nguyên tố và ghi kết quả vào file bai1.out
Cho tệp bai1.inp gồm:
Hàng 1:Chứa số nguyên N
Hàng 2:Chứa dãy số nguyên gồm N chữ số
Yêu cầu:-Tính tổng các số lẻ và đếm các số chẵn của dãy số trên
-Ghi kết quả tổng và đếm vào tệp bai1.out
const fi='bai1.inp'
fo='bai1.out'
var f1,f2:text;
a:array[1..100]of integer;
n,i,t,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
t:=0;
dem:=0;
for i:=1 to n do
begin
if a[i] mod 2<>0 then t:=t+a[i]
else inc(dem);
end;
writeln(f2,'Tong cac so le la: ',t);
writeln(f2,'So so chan la: ',dem);
close(f1);
close(f2);
end.
Viết chương trình Pascal tính am . Với a,m là các số nguyên đọc từ bai1.inp và ghi kết quả ra tệp bai1.out.
giúp mình vs
const fi='bai1.inp';
fo='bai1.out';
var f1,f2:text;
a,m,lt,i:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,a,m);
lt:=1;
for i:=1 to m do
lt:=lt*a;
writeln(f2,lt);
close(f1);
close(f2);
end.
bai1
h={xen/xmu17=x}
pham minh hoa Bài 1 cho đề như thế nào ? Thiếu dữ liệu đề bài rồi :vv
bai 1 viet cac tap hop sau bang cach 1
pham minh hoa Viết các tập hợp sau bằng cách nào??? cách liệt kê hay cách gì???
BAI1 SO SANH 2^600 va 3^400
Nguyễn Văn Tân làm đúng nhưng cách làm như bạn thì sai ùi !
2^600 = ( 2^6 )^100 = 64^100
3^400 = ( 3^4)^100 = 81^100
Vì 64 < 81 nên 64^100 < 81^100
Nên : 2^600 < 3^400
2600 = (26)100 =32100
3400 =(34)100 =81100
Mà 32<81
=> 2600<3400
bai1:phan tich da thuc thanh nhan tu a)5x3y-10x2y2+5xy3 b)x32y-1-125 2y-1 c)x2-6x-4y2+9 d)x2-xy+2y-2x
bai1 : tinh 7/9-1/12 lam kieu gi
giup minh voi
\(\dfrac{7}{9}-\dfrac{1}{12}=\dfrac{28}{36}-\dfrac{3}{36}=\dfrac{25}{36}\)
Câu lệnh để gắn tên tệp ‘bai1.txt’, cho biến tệp f là:
A. assign( f, ‘bai1.txt’);
B. assign(bai1.txt, f);
C. assign( f, bai1.txt);
D. assign(‘bai1.txt’, f);