Информатика. Нужно составить на Паскале программу для возведения в N-ую степень целого числа X.
По дате
По рейтингу
var x,n,s,i:longint;
begin
writeln('enter x,n');
readln(x,n);
s:=1;i:=1;
while i<=n do begin
s:=s*x;
i:=i+1;
end;
writeln('otvet=',s);
readln;
end.
Источник: проверено лично в Паскале. Результат 100%
Андрей, а то что вы написали мягко говоря "не умно"
все писать не буду напишу одну строчку
exp(ln(x)*n)
x - число
n - степень.
Вадим то что вы написали не экономично
в смысле не умно? а что тут лишнее?
Что-то вроде
Y:=X;
for i:=1 to N-1 do Y:= Y*X;
Вы предлагаете составить программу для возведения в N-ую степень целого числа X?
Больше по теме 
Задача на паскале. Нужно программу возведения в N-ую степень целого числа X. Не выводит результат.
в