Viết chương tính tổng S= 1+2+3+...+10. áp dụng cấu trúc for
2 câu trả lời
uses crt;
var i, T: integer;
Begin
clrscr;
T:=0;
for i:=1 to 10 do T:=T+i;
writeln('Tong cac so tu 1 den 10 la: ', T:2);
readln;
End.
Program BTH;
uses crt;
var s,i:longint;
Begin
clrscr;
For i:=1 to 10 do
s:=s+i;
writeln('Tong day so tren la: ',s);
readln;
end.
Câu hỏi trong lớp
Xem thêm
