Лучший ответ:
Program zadanie;
Var x,p:real;
Begin
Writeln('Введите значения переменных X и P');
Readln(x,p);
x:=x^p;
Writeln('=',x);
End.
более месяца назад
Ваш ответ:
Program zadanie;
Var x,p:real;
Begin
Writeln('Введите значения переменных X и P');
Readln(x,p);
x:=x^p;
Writeln('=',x);
End.
