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

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

Question

Сибилла

23 августа, 19:13

+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.

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