помогите пожалуйста!!!!!дано действительно x, не одинаковое 0, и естественное n. вычислить

Помогите пожалуйста!!!!!
дано действительно x, не одинаковое 0, и естественное n. вычислить x^n, используя цикл for
информатика

Задать свой вопрос
1 ответ

Var

n,x,s,i:integer;

Begin

Readln(x,n);

s:=1;

For i:=1 to n do

s:=s*x;

Writeln(s);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт