MaksPlay2209
01.07.2020 05:19

Ввести целое число если оно четное разделить на 2, если не чётное возвести в квадрат P.S Язык Паскаль

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Alinka2128
06.05.2021 11:22

var x:integer;

var y:real;

begin

readln(x);

if x mod 2 = 0 then

y:= x/2

else

y:= x*x;

writeln(y);

end.

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