Question

tính s=1+2+3...+100

Answer 1

uses crt;

var s,i:longint;

begin

s:=0;

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

writeln(' S=', s);

readln;

end.

Answer 2

program chuongtrinh;

uses crt;

var s,i:integer;

begin

s:=0;

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

write (' Tong s= ',s);

readln;

end.