,0,0,0,

[Nasa07]

,,

[IvanLis]

Сделал вроде, но не понимаю почему не пашет правильно

Я бы рекомендовал переделать немного, т.к. для нахождения 3-значных, нужно в 3 степень возводить, а вот для 4-значных - в 4 степень.
А 3-значные не получается найти, т.к. Вы сразу 4 степень учитываете, и остаток не дает "равно" найти. Да и сравнивать Integer и Real типы не совсем корректно.

Переделывайте, с учетом количества знаков и что бы все в Integer считалось.
Вы начали использовать целочисленное деление в первом разряде, а потом реализовали по другому.
Я бы через преобразование Integer <-> String делал, медленее, но понятно и надежно.

И посмотрите как другие делают, но будьте внимательнее, т.к. эта реализация подходит только для 3-значных чисел, т.к. каждая цифра возводится в 3 степень.

[Nasa07]

ОПФШЦРПЩРФУЦШЩПРФЦШЩПРЦЩФРПЦ

[IvanLis]

Спасибо! Буду разбираться

Все на много проще получается, чем Вы делали. Однозначные числа все подходят заданному критерию, среди двузначных - ни одного, по этому искать начинаем сразу с трехзначных....

Armstrong numbers.vi

lv2016

(10.29 КБ) 29 скачиваний

[Nasa07]

ЫпУпЫярККЫ

[IvanLis]

О, я немного запутаннее сделал, но тоже работает

Результат получили и хорошо, а совершенству нет предела.

Дорогу осилит идущий