Найти из диапазона от 1 до N

[borntank]

Найти из диапазона от 1 до N

найти из диапазона от 1 до n такие нчисла сумма цифр которых возведенная в степень, равную кол-ву цифр этого числа,равно самому числу. Число n вводится с клавиатуры. Паскаль!

 

[Vladimir_S]

найти из диапазона от 1 до n такие нчисла сумма цифр которых возведенная в степень, равную кол-ву цифр этого числа,равно самому числу. Число n вводится с клавиатуры. Паскаль!

И Вам тоже здравствовать!
Ну как же не откликнуться на столь любезно выраженную просьбу? Надеюсь, что своей назойливостью я не доставил Вам неудобств... Если изыщете время, гляньте, пожалуйста, на убогий труд сей:

Var
 n,n1,i:LongInt;
 NoF,Sum:byte;
Begin
 Write('n= ');
 Readln(n);
 For i:=1 to n do
  begin
   NoF:=Trunc(Ln(i)/Ln(10))+1;
   n1:=i;
   Sum:=0;
   repeat
    Sum:=Sum+(n1 mod 10);
    n1:=n1 div 10;
   until n1=0;
   if Round(Exp(NoF*Ln(Sum)))=i then Write(i,' ');
  end;
 Readln
End.

 

[borntank]

Спасибо большое,уж извините. На паре сижу,как смог написал) еще раз спасибо)

 

[Vladimir_S]

Спасибо большое,уж извините. На паре сижу,как смог написал) еще раз спасибо)

Да, сейчас посмотрел Ваши прошлые задачки - у вас ведь АВС? Тогда LongInt замените на Integer. И вообще, это нужно всегда указывать, а не просто "Паскаль!".

 

[borntank]

Там какая-та ошибка,например пишу число 23 должно быть (2+3)=6 и возвести квадрат его 36, а он выводит 123456789

 

[Vladimir_S]

Там какая-та ошибка,например пишу число 23 должно быть (2+3)=6 и возвести квадрат его 36, а он выводит 123456789

Так. Еще раз и в сотый раз повторяю: я НЕ ВЫКЛАДЫВАЮ сырых неотлаженных программ! Читаем условие задачи:
1. Вводим n.
2. Проходим ВЕСЬ ДИАПАЗОН от 1 до n и выводим ВСЕ числа из этого диапазона, обладающие свойством: сумма цифр, возведенная в степень, равную значности числа, есть самО число. Таким свойством обладают, естественно, ВСЕ однозначные числа, потому они и выводятся.

должно быть (2+3)=6

Вы АБСОЛЮТНО в этом уверены?

На рисунке показан результат работы программы.