Question

не используя функцию возведения в квадрат напишите на языке паскаль наиболее короткие алгоритмы вычисления: a) y=x в десятой b) y= x в пятнадцатой Постараться использовать минимальное количество дополнительных переменных.

Answer 1

Program p2;//для 10-ой
Var y,x:integer;
i:byte;
Begin
Readln(x);//введите Х
For i:=1 to 10 do
Y:=y*x;
Writeln(Y);
End.

 

Program p2;//для 15-ой
Var y,x:integer;
i:byte;
Begin
Readln(x);//введите Х
For i:=1 to 15 do
Y:=y*x;
Writeln(Y);
End.