Viết chương trình Pascal sử dụng cấu trúc lặp để in ra màn hình tổng của 10 số tự nhiên đầu tiên

2 câu trả lời

code 

var i,t:longint;
begin
for i:=0 to 10 do
t:=t+i;
write(t);
readln
end.

Var s,i:integer;
begin
 S:= 0;
 For i:= 1 to 10 do s:=s+1;
 Writeln (‘tong cua 10 so tu nhien dau tien la:’,s);
 Readln
End.