Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Напишите программу, которая после ввода двух натуральных чисел возводит первое число в степень второго

Ответ оставил Гость

Program V1;
begin var x, s, i, n :integer; 
writeln(Введите цифру); 
readln(x); 
writeln(Введите степень); 
readln(n); 
s:=1;
for i:=1 to n do s:=S*x;
writeln( Степень , n , из , x, = , s)
end.