Question

1.Вычислить значение у=x6 рациональным способом, то есть за минимальное количество операций; x – произвольное натуральное число, не превышающее 5.

Answer 1

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