Безотлагательно!!!!ввести с клавиатуры 5 целых чисел.Определить количество четных чисел в начальном

СРОЧНО!!!!

ввести с клавиатуры 5 целых чисел.Найти количество четных чисел в начальном комплекте.

ввести 2 числа . Если они одинаковы,то отыскать их творенье,иначе отыскать сумму

Задать свой вопрос
1 ответ
Var a,b,c,d,f:integer; begin read (a,b,c,d,f); if a mod 2 = 0 then writeln ("Число четное") else нечетное. Задаешь команду на кол-во
var a,b,c:real; read (a,b) if a=b then c = a*b else c = a+b
Короткое решение (без оформления)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт