Question

viet chuong trinh tinh tong 100 so tu nhien đầu tiên từ 1...100

Answer 1

program bai1;

var s,i:longint;

begin

s:=0;

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

write('s= ',s);

readln

end.

Answer 2

program tong;

var

i, S: integer;

begin

S:=0

for i:=1 to 100 do S:=S+i;

writeln('tong la=', S);

readln

end.