СРОЧНО!!!!
ввести с клавиатуры 5 целых чисел.Определить количество четных чисел в исходном наборе.
ввести 2 числа . Если они равны,то найти их произведение,иначе найти сумму
Ответы
Ответ дал:
0
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
Краткое решение (без оформления)
var a,b,c:real; read (a,b) if a=b then c = a*b else c = a+b
Краткое решение (без оформления)
Вас заинтересует
1 год назад
1 год назад
7 лет назад
9 лет назад