Question

Создайте программу на языке Паскаль, которая возводит нечётное число в квадрат, а чётное — в куб.

Answer 1

Ответ:

Program abc;

var a:integer;

begin

 Write('Введите число:');readln(a);

 if (a mod 2 = 0) then a:=a*(sqr(a)) else a:=sqr(a);

  Writeln(a);

end.