VCT tính tổng các số tự nhiên từ 1–>100 25/07/2021 Bởi Adalynn VCT tính tổng các số tự nhiên từ 1–>100
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. Bình luận
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 Bình luận
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.
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