Viết chương trình tính tổng 20 số tự nhiên đầu tiên
Viết chương trình tính tổng 20 số tự nhiên đầu tiên
Lời giải:
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 20 do
t:=t+i;
writeln(t);
readln;
end.