Вопрос Задача на паскале. Нужно программу возведения в N-ую степень целого числа X. Не выводит результат.

[baltozar]

Хочу возвести число 5 в квадрат, всё проходит нормально, но после ввода чисел ничего не происходит, результат не выводится
Program cvadrat;
Var
x, N, c: integer;
begin
writeln('Введите значение x: ');
readln(x);
writeln('Введите значение N: ');
readln(N);
c:= 1;
while c<>b do
c:= c*x;
writeln('a^b= ', c);
end.

 

[slow]

Зато используется какое-то b, которое вообще нигде не описано. И алгоритм абсолютно неправильный в целом.

 

[Макс123123]

У меня тут случайно нашлась программка var a,n,an:integer; begin read(a,n); an:=1; repeat an:=an*a; n:=n-1; until n=0; writeln(an) end.

 

[Коба]

Ну, N введено, но ведь не используется. А b вообще с потолка появилось.

 

[RUS RUS]

while c<>b do откуда у тебя взялась переменная b если ты её не объявлял?

 

[ololoid]

„Хочу возвести число 5 в квадрат“ А зачем тогда столько кода? Ну возведите в уме и напишите вывод 25… Если хотите именно 5 возвести именно в квадрат, то можно вспомнить, что 5² = 5·5 ЗЫ А ваша программа тупо не откомпилируется… Поэтому ни чего вы и не увидите ;–)