BONDsCNOPCOI
04.09.2021 11:16

Var a,b:integer;d: real;
Begin
Writeln(a,b);
Readln(a,b);
d:=a+b;
If d mod 2=0 then d:=a*b else d:=a/b;
Writeln(a=a);
End.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
PrOFy100
13.10.2020 21:14

ответ: не знаю

Объяснение:

Не знаю

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота