выводятся целые положительные числа а и n вывести а в степени n (n не более 19, а не более 9
через Паскаль ПОМОГИТЕ
через Паскаль ПОМОГИТЕ
Ответ
2.5/5
(2 оценки)
1
Мозг
Отвечающий
Объяснение:
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.