viết chương trình tính tổng 1+2+3+...+100 dùng repeat
2 câu trả lời
uses crt;
var i,s: integer;
begin
clrscr;
repeat
i:=i+1;
s:=s+i;
until i=100;
writeln ('tong la: ',s);
readln;
end.
program tinhtong;
uses crt;
var t,i:integer;
begin
clrscr;
t:=0; i:=0;
repeat
inc(i);
t:=t+i;
until i=100;
write("tong 100 so dau tien la: ',t);
readln
end.
Câu hỏi trong lớp
Xem thêm
