Составьте ** Pascal программу возведения в n-ую степень целого числа X

Question

Составьте на Pascal программу возведения в n-ую степень целого числа X

Answer 1

Var i,a,c,b:integer;
begin
c:=1;
writeln('Введите число');
readln(a);
writeln('Введите степень');
readln(b);
for i:=1 to b do
c:=a*c;
writeln (a, ' В сепени ',b,' =',c);
end.

Comments

Для возведения более больших чисел, смените тип данных на longint.