Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì ngừng lại
Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì ngừng lại
By Remi
By Remi
Viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì ngừng lại
program ct;
uses crt;
var S,i:integer;
begin
clrscr;
S:=0; i:=0;
while S<=100 do
begin
i:=i+1;
S:=S+i;
end;
writeln(‘tong la:’,S);
readln
end.
program tinh_tong;
uses crt;
var Tongcacso,i:integer;
begin
clrscr;
Tongcacso:=0;i:=0;
while Tongcacso<=100 do
begin
i:=i+1;
Tongcacso:=Tongcacso+i;
end;
readln;
end.
Bạn tham khảo nhé!