Предмет: Информатика,
автор: dadtornado
ввести целое число если оно четное разделить на 2, если не чётное возвести в квадрат
P.S Язык Паскаль
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Английский язык,
автор: sijnovarimma
Предмет: Русский язык,
автор: urinigor1
Предмет: Русский язык,
автор: papayanmarina1
Предмет: Русский язык,
автор: AnnaKqha
Предмет: Английский язык,
автор: iershov99