С клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0. Определить количество четных чисел. Напишите на языке Паскаль

Question

Информатика

Эмилианыч

18 февраля, 23:17

С клавиатуры вводится произвольная последовательность положительных чисел, за которой следует 0. Определить количество четных чисел. Напишите на языке Паскаль

+1

Ответы (1)

Знаете ответ?

Никанор · Answer 1

Var a, b, c: integer;

begin

c:=0;

b:=-30000;

read (a) ;

while a 0 do

begin

read (a) ;

if (a>b) then b:=a;

if a mod 2 = 0 then c:=c+1;

end;

writeln ('Макс число: ', b) ;

writeln ('Четных ', c) ;

end.