Question

Составить программу для вычесления суммы всех двузначных четных чисел. ​

Answer 1

Ответ:

program n1;

var q,w:integer;

begin

 w:=10;

 while w<=98 do begin

  q:=q+w;

  w:=w+2;

            end;

            print(q);

           

end.

Объяснение: