Question

Viết chương trình tính tính tổng các số tự nhiên từ 100 đến 200 (sử dụng lệnh while-do)

Answer 1

Program tinhtong;

var: i: longint;

Begin

i:=100

While i<=200 do

Begin i:=i+1

s:=s+i;

End;

readln;

end.

Answer 2

Program tinhtong;

var: i: longint;

Begin

i:=100

While i<=200 do

Begin i:=i+1

s:=s+i;

End;

readln;

end.