Question

Viết chương trình Pascal tính tổng S = 1 + 2 +…+ 10. Dùng câu lệnh for… to… do

Answer 1

Program HOC24;

var i,s: byte;

begin

s:=0;

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

write('S = ',s);

readln

end.