Задание

Определить какую задачу реализует программный код:

Begin

Read (c1,c2,c3,c4);

a :=0;

b := 1;

if c1 mod 2 <> 0 then Begin a:=a + 1; b:=b*c1 end;

if c1 mod 2 <> 0 then Begin a:=a + 1; b:=b*c2 end;

if c1 mod 2 <> 0 then Begin a:=a + 1; b:=b*c3 end;

Write(a:5, b)

End.

Определяется количество положительных чисел из четырех чисел

Определяется количество положительных чисел из четырех чисел и их произведение

Определяется количество четных чисел из четырех чисел и их произведение

Определяет кочество чисел, которые делятся на 2 и возводит из в квадрат