Question

3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления:
а) y=x10 б) y=x15
Постараться использовать минимальное количество дополнительных переменных.

Answer 1

var x,y,i: integer;
begin
readln (x);
y:=x;
for i:=2 to 10 do
y:=y*x;
writeln (y);
end.

В примере б) та же программа, но замени на i:=2 to 15

PS вместо integer может быть real. Зависит от условия задачи.