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.