Ответы на вопрос:
Более изящное решение : ) проблема в строке c: = (b*b*b); ты ищешь сумму кубов, а для 4-значных чисел нужно искать сумму 4-х степеней. нужно проверять число а: если от 100 до 999, то выполняем c: = (b*b*b); а если от 1000 до 9999, то выполняем c: = (b*b*b*b); код ниже работает и выдаёт результат: число армстронга ==> 153 число армстронга ==> 370 число армстронга ==> 371 число армстронга ==> 407 число армстронга ==> 1634 число армстронга ==> 8208 число армстронга ==> 9474 **************************************************************** var a,b,c,d,a2: integer; begin for a: = 100 to 9999 do begin d: =0; a2: =a; while (a2 < > 0) do begin b: = a2 mod 10; a2: = a2 div 10; if a< 1000 then c: = (b*b*b) else c: = (b*b*b*b); d: = d+c; end; if (a = d) then writeln('число армстронга ==> ', a); end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Ястеб2212.09.2020 15:09
-
anokhina6905.03.2020 10:11
-
Хфк02.03.2021 13:08
-
LunyaShag15.12.2020 05:08
-
Danila25100806.10.2021 17:53
-
qalaysiz34512.01.2020 11:26
-
меркульева30.08.2022 04:53
-
lfhnvjk200705.03.2023 06:53
-
sdfxcg19.11.2020 09:05
-
оьмдды03.06.2023 04:46
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.