Дан набор ненулевых чисел, признак его завершения число 0. вывести сумму всех положительных четных чисел из данного набора. если требуемые числа отсутсвуют вывести то вывести 0

Question

Элеонора

27 марта, 04:31

+2

Ответы (1)

Знаете ответ на вопрос?

Милетя · Answer 1

Var a, s:integer;

begin

a:=-1;

while (a0) do begin

read (a) ;

if a>0 then s+=a;

end;

writeln (s) ;

end.