Question

viết phương trình tích từ s=(1+2+3+4+...+2018) sử dụng while hoặc for do

Answer 1

While..do

Program HOC24;

var i: integer;

s: longint;

begin

s:=0; i:=1;

while i<=2018 do

begin

s:=s+i;

i:=i+1;

end;

write('S = ',s);

readln

end.

Answer 2

For..do

Program HOC24;

var i: integer;

s: longint;

begin

s:=0;

For i:=1 to 2018 do s:=s+i;

write('S = ',s);

readln

end.