cho mảng A gồm 10 phần tử nguyên .Hãy tính tổng của 10 phần tử đó
Quảng cáo
1 câu trả lời 387
3 năm trước
Program Tenchuongtrinh;
Const fi='sochan.inp';
fo='sochan.out';
Var m,n,tong:longint;
Procedure Doctep;
Var f:text;
Begin
assign(f,fi);
reset(f);
readln(f,m,n);
close(f);
End;
Procedure Xuatkq;
Var f:text; i:longint
Begin
Doctep;
assign(f,fo);
rewrite(f);
tong:=0;
if (m<n) then
for i:=m to n do
if (i mod 2=0) then tong:=tong+i;
Writeln(f,tong);
Close(f);
End;
Begin
Xuatkq;
End.
ThuầnThạch
· 3 năm trước
Ha ha
Khi túi thằng đức á mắc cười lắm luôn á anh
Ổng ngủ ko đc
Tưởng bé là gối ôm
Ôm bé ngủ đến sáng
Lúc đó bé đang mơ ngủ ngon lành à
Mà có sao ko nhỉ
BÉ sợ á
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
4099
-
3685
-
3215
Gửi báo cáo thành công!
