Question

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

Answer 1

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.