СРОЧНО! Ввести с клавиатуры 5 целых чисел. Определить количество четных чисел в…

Question

74

СРОЧНО! Ввести с клавиатуры 5 целых чисел. Определить количество четных чисел в исходном наборе. Ввести 2 числа. Если они равны, то найтиих произведение, иначе найти сумму

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

maximus122 · Accepted Answer

66

maximus122

11 апреля 2023

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

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: