Дана последовательность чисел оканч. на 0; определить сумму четных и кол-во нечетных и если есть хотя бы одно отрицательное число вывести 'да'.

192

446

Посмотреть ответы 2

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

leravolk399

Информатика

4,8(28 оценок)

Program n1; var a,sumc,kn: integer; ot: byte; begin readln(a); kn: =0; sumc: =0; ot: =0; while a< > 0 do begin if a< 0 then ot: =1; if a mod 2=0 then sumc: =sumc+a else kn: =kn+1; readln(a); end; writeln('сумма четных: ',sumc); writeln('кол-во нечетных: ',kn); if ot=1 then write('да'); end.