Напишите программу для Паскаля.

Возвести чётное число в квадрат, а нечётное в куб.

Question

Афинодор

20 декабря, 17:47

+4

Ответы (1)

Знаете ответ на вопрос?

Протас · Answer 1

Var

x, rez:integer;

begin

readln (x) ;

if x mod 2 = 0 then

rez:=x*x

else

rez:=x*x*x;

writeln (x) ;

end.

Напишите программу для Паскаля.Возвести чётное число в квадрат, а нечётное в куб.