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

1

Ответы и объяснения

  • nemp
  • хорошист
2013-03-05T16:26:26+00:00

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.