Quảng cáo
1 câu trả lời 17198
Program mang;
Var i:longint;
a:array[1..10] of longint;
function tb:real;
Begin
tb:=0;
for i:=1 to 10 do tb:=tb+a[i];
tb:=tb/10;
End;
Begin
For i:=1 to 10 do read(a[i]);
Write(tb:10:1);readln;
End;
nam le
· 2 năm trước
Viết chương trình; đọc từ tệp ''DULIEU.INP" 2 số nguyên M và N (M<N).tính tổng các số chẵn trong phạm vi từ M đến N,ghi kết quả ra tệp "KETQUA.OUT"
nam le
· 2 năm trước
Giúp e với ạ....mai thi rồi...huhu
Mềm Đoàn Thị
· 2 năm trước
Var f1, f2: text; Tong, M, N, i: integer; Begin assign(f1, ‘DULIEU.INP’); reset(f1); assign(f2, ‘KETQUA.OUT’); rewrite(f2); Tong;= 0; read(f1, M, N); for i:= M to N do if i mod 2 = 1 then Tong:= Tong+i; write(f2, Tong); close(f1); close(f2); End.
Hao Nguyen Thi
· 2 năm trước
Bạn đăng câu hỏi đi
Hao Nguyen Thi
· 2 năm trước
Mk trả lời cho
Hao Nguyen Thi
· 2 năm trước
K thôi bạn vào hoidap247
Hao Nguyen Thi
· 2 năm trước
Có trong đó á
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!