Question

viết chương trình tính tổng của 8 sô tự nhiên đầu tiên

Answer 1

program tinhtong;

uses crt;

var s,i,n:integer;

begin

s:=0;

for i:=1 to 8 do

s:=s+1;

writeln ('tong cua s:',s);

readln;

end.

Answer 2

var s,i:integer;

begin

for i:=1 to 8 do

s:=s+i;

write('Tong la: ',s);

readln

end.