Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
hshdk
14.02.2021 06:25 •
Другие предметы
Натуральное число из n цифр является числом Армстронга, если сумма его цифр, возведенных в n-степень, равна самому (программа Паскаль)
Показать ответ
Ответ:
godofwar171
16.04.2019 23:00
program z1;
uses crt;
var a,b,c,n: integer;
begin
for a:=100 to 999 do
begin
c:=0;n:=a;
while n<>0 do
begin
b:=n mod 10;
c:=c+sqr(b)*b;
n:=n div 10;
end;
if a=c then writeln (a);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
DanilSoldatkin
01.06.2022 04:54
как вы объясните тот факт, что наиболее полное исследование территории кубани началось только в конце xviii века ? заранее ❤️...
оля2045
24.08.2021 05:15
Описать изготовление любой технологии 6 класс...
kerikan
07.03.2022 21:24
Составь словесный портрет существительного Домбру из упражнения 556A...
Klamie
30.05.2020 15:04
Соотношение между временами года и суточным вращением на Сатурне...
hxnsksjsjsks
17.08.2020 02:27
сделать реферат на данную тему на 2-3 страницы надо. Буду очень благодарен. Тема: Государственная аттестация методов контроля и проверка средств измерения экологических...
yuliyasss
04.02.2020 21:13
«Рецепт» дулевского фарфора...
Alex1t0
23.01.2021 15:18
Видимое движение планет на небе является движением по прямой движением по окружности петлеобразным движением Нет правильного ответа...
kostyaluch
31.01.2023 12:55
с какой фразы начинается обучение всем видам легкоатлетических метаний?...
Fqx
03.02.2023 00:16
1. Укажи рядок, у якому правильно подане визначення відокремлення А це смислове та інтонаційне виділення членів речення для посилення їхнього значення Б це члени...
FiZik11111032
10.03.2021 18:43
29.Үйдөн ата-энелер, улуу агаңар же эжеңер менен кеңешип, С.Чокморов башкы ролду аткарган тасмалардан бирди тандап көргүлө.Тасма жөнүндө түшүнгөнүңөрдү айтып бергиле.Үлгүнү...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var a,b,c,n: integer;
begin
for a:=100 to 999 do
begin
c:=0;n:=a;
while n<>0 do
begin
b:=n mod 10;
c:=c+sqr(b)*b;
n:=n div 10;
end;
if a=c then writeln (a);
end;
end.