Лёгкая задачка по информатике паскаль.По данному числу x и целому n

Лёгкая задачка по информатике паскаль.
По данному числу x и целому n вычислить x^n используя цикл repeat...until.

Задать свой вопрос
1 ответ
Var x,xn:real; n,i:integer;
begin
readln(x,n);
xn:=1; i:=0;
repeat
i:=i+1;
xn:=xn*x;
until i=abs(n);
if nlt;0 then xn:=1/xn;
writeln(x:3:1,'^',n,' = ',xn:6:4);
end.

Пример:
2 -3
2.0^-3 = 0.1250
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт