Question

Viết chương trình tính và in tổng 10 số tự nhiên đầu tiên

Answer 1

TK:

Answer 2

Program Tinhtong;

Uses crt;

Var s,i,n :integer;

Begin

S:=0

for i:=1 to 10 do s:=s+1

writeln ('tong cua s =',s);

readln

end.

Answer 3

Var i,s:integer;

Begin

For i:=0 to 9 do s:=s+i;

Write('tong la ',s);

Readln;

End.