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

borntank · 26.11.2013, 10:02

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

Vladimir_S · 26.11.2013, 11:23

Цитата:

Сообщение от borntank

найти из диапазона от 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 · 26.11.2013, 11:42

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

Vladimir_S · 26.11.2013, 11:52

Цитата:

Сообщение от borntank

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

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

borntank · 26.11.2013, 12:04

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

Vladimir_S · 26.11.2013, 13:06

Цитата:

Сообщение от borntank

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

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

Цитата:

Сообщение от borntank

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

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

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

26.11.2013, 10:02	#1 (permalink)
borntank Member Регистрация: 26.04.2013 Сообщений: 15 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Найти из диапазона от 1 до N найти из диапазона от 1 до n такие нчисла сумма цифр которых возведенная в степень, равную кол-ву цифр этого числа,равно самому числу. Число n вводится с клавиатуры. Паскаль!

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

26.11.2013, 10:02
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	В данных темах содержится информация, которая скорее всего вам будет интересна Ошибка монитора - "вне диапазона" Найти АТС Найти Is Вне диапазона Расширение диапазона регулятора мощности?

26.11.2013, 11:42	#3 (permalink)
borntank Member Регистрация: 26.04.2013 Сообщений: 15 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо большое,уж извините. На паре сижу,как смог написал) еще раз спасибо)

26.11.2013, 12:04	#5 (permalink)
borntank Member Регистрация: 26.04.2013 Сообщений: 15 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Там какая-та ошибка,например пишу число 23 должно быть (2+3)=6 и возвести квадрат его 36, а он выводит 123456789

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070