Определить какую задачу реализует программный код: 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 и возводит из в квадрат
Задание

Определить какую задачу реализует программный код:
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 и возводит из в квадрат