Tin học VCT tính tổng các số tự nhiên từ 1->100 19/07/2021 By Isabelle VCT tính tổng các số tự nhiên từ 1->100
uses crt; var i,s: integer; begin clrscr; for i:=1 to 100 do s:=s+i; writeln (‘tong la: ‘,s); readln; end. Trả lời
program tinhtong; var t,i:integer; begin clrscr; t:=0; for i:=1 to 100 do t:=t+i; write(‘Tong 100 so tu nhien dau tien la: ‘,t); readln end. Trả lời
uses crt;
var i,s: integer;
begin
clrscr;
for i:=1 to 100 do s:=s+i;
writeln (‘tong la: ‘,s);
readln;
end.
program tinhtong;
var t,i:integer;
begin
clrscr;
t:=0;
for i:=1 to 100 do
t:=t+i;
write(‘Tong 100 so tu nhien dau tien la: ‘,t);
readln
end.