Автор К _ задал вопрос в разделе Наука, Техника, Языки
Кто нибудь знает как написать задачу числа Амстронга в паскале? и получил лучший ответ
Ответ от Nau[гуру]
Это смесь JavaScript + HTML. Раз нужен лишь алгоритм - сами преобразуете. 🙂
Числа Армстронга в заданном интервале
Напишем сценарий, определяющий все числа Армстронга, расположенные в заданном интервале. Натуральное число называется числом Армстронга, если оно совпадает с суммой k-ых степеней составляющих его цифр, где k — количество цифр в числе. Например, таким является число 153, т. к. 153 = 13+53+33.
Функция arm получает в качестве параметра строку, для которой требуется определить, представляет ли содержимое строки число Армстронга. Переменная is определяет длину строки или количество цифр в числе. Далее в строке отщепляется по одному символу, символ преобразуется в число, определяется значение в заданной степени, и полученный результат добавляется к формируемой сумме. После того, как все символы строки будут просмотрены, проверяется условие для числа Армстронга. Функция arm выдает значение true, если число является числом Армстронга:
function arm(s)
{ var h; var k; var r
var ls= s.length
sum=0
for (var 1=0; i<=ls-l; i++)
{ h=s.charAt(i)
k=Number(h)
r=Math.pow(k,ls)
sum+=r
}
return (s==String(sum))
}
Перебор осуществляется функцией interav. Просматриваются все числа из заданного диапазона, и для каждого из них проверяется, является ли данное значение числом Армстронга. Так как параметр функции arm — строка, то и при обращении к ней в функции interav числовой параметр i преобразуется в строку. Результат работы помещается в текстовое поле. Каждое число располагается в отдельной строке. Описанные сценарии приведены в листинге 13.3.
Листинг 13.3. Числа Армстронга в заданном интервале
<html>
<head>
<title>Числа Армстронга в заданном интервале</title>
<script>
</script>
</head>
<body>
<h4>Числа Армстронга в заданном интервале</h4>
<form>
<pre>
Левая граница интервала: <input>
Правая граница интервала: <input><hr>
<input>
<textarea></textarea>
<input>
</pre>
</form>
</body>
</html>
Если поиск чисел производить в интервале [100; 9999], то результат работы сценария будет таким, как на рис. 13.2.
Текст скрипта срезался парсером, см. в источнике.
Источник: http://www.realcoding.net/article/view/2039?ShmID=81d328e505cf0b1cb5516cec763e9c6e ссылка