viết chương trình tính tổng T=1+2+3+4+5+6+7+8+9+10 bằng câu lệnh lặp với số lặp biết trước for...do
2 câu trả lời
Program BTH;
uses crt;
var i,s:byte;
Begin
clrscr;
s:=0;
For i:=1 to 10 do
s:=s+i;
writeln('Tong day so tren la: ',s);
readln;
end.
Trình bày đẹp cả rồi đấy bạn
program kaito;
uses crt;
var s, i: integer;
begin
clrscr;
for i:=1 to 10 do s:=s+i;
writeln('T = 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10 = ',s);
readln
end.
CHÚC BẠN HỌC TỐT!!!
Câu hỏi trong lớp
Xem thêm