Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления: а) y=x10 б) y=x15 Постараться использовать минимальное количество дополнительных переменных.
program PowerOfTen; var x, y: integer; begin write('Enter a number: '); readln(x); y := x * x * x * x * x * x * x * x * x * x; writeln('x^10 = ', y); end.
б)
program PowerOfFifteen; var x, y: integer; begin write('Enter a number: '); readln(x); y := x * x * x * x * x * x * x * x * x * x * x * x * x * x * x; writeln('x^15 = ', y); end.
а)
program PowerOfTen;var
x, y: integer;
begin
write('Enter a number: ');
readln(x);
y := x * x * x * x * x * x * x * x * x * x;
writeln('x^10 = ', y);
end.
б)
program PowerOfFifteen;var
x, y: integer;
begin
write('Enter a number: ');
readln(x);
y := x * x * x * x * x * x * x * x * x * x * x * x * x * x * x;
writeln('x^15 = ', y);
end.