+24
2 года назад
Информатика
5 - 9 классы
Объяснение:
Program zero;
Var a, n, i:Integer;
Begin
Whiteln('Введите число: ');
Readln(a);
Whiteln('Введите степень: ');
Readln(n);
If (a>0) and (b>0) then
If (a<=9) and (n<=19) then
For i:=1 to n do
a:=a*a
End
else Writeln('Числа не соответствуют условию!!! ');
Whiteln('Число в степени: ', а);
Readln
End.
Не помнишь пароль?
Нет аккаунта? Пройди быструю регистрацию!
Передумали регистрироваться? Предлагаем войти на сайт!
Вспомнили пароль? Войдите на сайт
Объяснение:
Program zero;
Var a, n, i:Integer;
Begin
Whiteln('Введите число: ');
Readln(a);
Whiteln('Введите степень: ');
Readln(n);
If (a>0) and (b>0) then
Begin
If (a<=9) and (n<=19) then
Begin
For i:=1 to n do
a:=a*a
End
else Writeln('Числа не соответствуют условию!!! ');
End
else Writeln('Числа не соответствуют условию!!! ');
Whiteln('Число в степени: ', а);
Readln
End.