Question

Hãy viết chương trình sử dụng vòng lặp For để tính tổng các sô tự nhiên từ 1 tới 10

Answer 1

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 10 do

t:=t+i;

writeln('Tong cac so tu nhien tu 1 toi 10 la: ',t);

readln;

end.

Answer 2

var i,t:integer;

begin

t:=0;

for i:=1 to 10 do t:=t+1;

writeln(' Ket qua la: ',t);

readln;

end.