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

Question

Ионя

4 июня, 01:33

+5

Ответы (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.