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('tong chieu cao 3 bn:',t);
readln
end.

uuses crt;

var t,i:longint;
begin clrscr;
for i:=0 to 10 do
t:=t+i;
write('tong chieu cao 3 ban la:',t);
readln;
end.