Question

СРОЧНО!!!!

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

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

Answer 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
Краткое решение (без оформления)