|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Решаю задачу из Кордемского
Здравствуйте!
Решаю задачу из сборника Кордемского "Математическая смекалка". Я-то решил её на бумаге, но хотелось бы пойти дальше... Сама задача тут: https://ibb.co/Gp59ZdZ Исходник консольной проги на FreePascal - во вложении. Суть проблемы: я сделал прогу, которая разбивает (исходное) число на цифры, возводит каждую цифру в квадрат, складывает результаты, и получает новое число. Которое заносится в массив. И так итерируем 30 раз. Потом, массив с этими итерационными результатами проверяем на наличие цикла. То есть, получаем массив такой: 256 65 61 37 58 89 145 42 20 4 16 37 58 89 145 42 20 4 16 37 58 89 145 42 20 4 16 37 58 89 145 ... И почему-то проверка, в отладчике FPC, даёт нужное число (если исходное - 256, то результат должен быть 145). А без отладчика, в "свободном полёте" - 0 получается. Пожалуйста, подскажите, что я делаю не так? Или я не вижу рядом открытой двери? Спасибо! Последний раз редактировалось Krypton, 20.08.2023 в 13:15. |