Question

Вычислить значение y=x^6 рациональным способом, т.е за минимальное количество операций, x-произвольное натуральное число, не превышающее 5

Answer 1

Var x:integer;
begin
read (x);
if (x<=5) then writeln (power (x,6)) else  writeln (x,'>5');
end.