Регистрация
aguanapfel
08.03.2020 01:31
Информатика
Есть ответ 👍

Как меняют фон окна в пайгейм?
Как загружают готовые объекты в пайгейм?

281
406
Посмотреть ответы 1

Ответы на вопрос:

volgaslob
volgaslob
4,4(65 оценок)

program raf105;

var a,b: integer;

begin

writeln('вводите числа по очереди');

writeln('чтобы закончить введите 0');

a: =1;

while a< > 0 do

begin

readln(a);

if (a mod 2) = 0

  then b: = b+a;

end;

writeln('сумма чётных чисел: ',b);

end.

программа написана на языке pascalabc.net

Популярно: Информатика