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

Сегодня примерно в 19:41 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.

Тема вопроса с пояснением

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

Ответ с привлечением экспертов

Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:

И сразу же ответим на него:

После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

Program i2;
var
a,b: integer;
begin
readln(a.b);
if (a+b) mod 2=0 then
writeln(a*b)
else
writeln(a/b);
end.