Дан набор ненулевых чисел ,признак его завершения - вопрос №25151230 от klubnichka10 04.03.2020 19:03

Question

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

klubnichka10 · Answer

Var a,s:integer;begina:=-1;while (a 0) do beginread(a);if a 0 then s+=a;end;writeln(s);end....