Найдите количество нечетных чисел среди а,в,с

0 голосов
49 просмотров

Найдите количество нечетных чисел среди а,в,с


Информатика (167 баллов) | 49 просмотров
0

Pascal или C++?

0

Паскаль

Дан 1 ответ
0 голосов

Var a, b, c: integer;

begin
  read(a, b, c);
  a := a mod 2; {в результате, в а будет остаток от деления на 2, то есть 1 - если число нечетное}
  b := b mod 2;
  c := c mod 2;
  write(a + b + c);
end.

(144 баллов)