Question

sử  dụng  vòng lập while...do để viết chương trình tings tổng các số chẳn trong 50 sồ tự nhiên đầu tiên

Answer 1

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

i:=0;

while i<=50 do 

begin

i:=i+2;

t:=t+i;

end;

writeln(t);

readln;

end.