Написать программу, которая определяет количество четных чисел…

Задание:

Написать программу, которая определяет количество четных чисел из введенной с клавиатуры последовательности N чисел. Написать программу на Паскале.

Решение:

Например если вводится 3 числаvar a,b,c,x: integer; beginx: =0; Read (a,b,c); if a mod 2=0 then x: =x+1if b mod 2=0 then x: =x+1; if c mod 2=0 then x: =x+1; Writeln ('Chetnuh chisel=' ,x); end.

Знаете другой ответ?

Отправить свой ответ