Составить программу нахождения суммы четных чисел ** ** промежутке от 20 до 30....

Question

Составить программу нахождения суммы четных чисел на на промежутке от 20 до 30. (использовать только цикл While)

Answer 1

Uses CRT;
 var sum, i, x:integer;
BEGIN
 x:=20;
 sum:=0;
  while (x>=20) and (x<=30) do<br>  begin
  sum:=sum+x;
  x:=x+2;
  end;
  Write('sum=',sum);
END.