Question

Tính tổng các số từ 1 đến 50 bằng lệnh lặp while...do.

Answer 1

Program tinhtong;

 var: i,s=longint;

Begin

i:=-1;

While i<50 do

Begin

i:=i+2;

S:-S+i;

End:

readln;

End.

Answer 2

Program HOC24;

var i,t: integer;

begin

i:=0; t:=0;

while i<=50 do

begin

i:=i+1;

t:=t+i;

end;

write('Tong cac so tu 1 den 50 la: ',T);

readln

end.