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

titovazaiceva titovazaiceva    2   04.06.2019 15:50    1

Ответы
zzxxccv1 zzxxccv1  05.07.2020 14:29
Var a,s:integer;
begin
a:=-1;
while (a<>0) do begin
read(a);
if a>0 then s+=a;
end;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика