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

Question

Информатика

Артемидка

29 февраля, 01:28

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

+1

Ответы (1)

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

Феонилла · Answer 1

Program n1;

var a, sumc, kn: integer;

ot: byte;

begin

readln (a) ;

kn:=0;

sumc:=0;

ot:=0;

while a0 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.