Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.02.2018, 17:30   #1
piton89090
 
Регистрация: 01.02.2018
Сообщений: 4
По умолчанию Задача Числа Армстронга (pascal)

Числа Армстронга. Натуральное число называется числом Армстронга, если сумма цифр числа, возведенных в N-ю степень, где N - количество цифр в числе, равна самому числу. Например: 153=1*1*1+3*3*3+5*5*5=153. Найдите все трехзначные и четырехзначные числа Армстронга.
Вот мой вариант:
Код:
var x,a,b,c,d: integer;
 begin
  while x<9999 do
   begin
    x:=x+1;
    if ((x div 100)>9) and ((x div 100)<100) then
     begin
       a:=x div 1000;
       b:=(x div 100)-a*10;
       c:=(x div 10)-(a*100+b*10);
       d:=x-(a*1000+b*100+c*10);
       if (a*a*a*a)+(b*b*b*b)+(c*c*c*c)+(d*d*d*d)=(x) then writeln(x);
     end;
    if ((x div 100)>(0)) and ((x div 100)<(10)) then
     begin
       a:=x div 100;
       b:=(x div 10)-a*10;
       c:=x -(a*100+b*10);
       if (a*a*a)+(b*b*b)+(c*c*c)=(x) then writeln(x);
     end;
   end;
 end.

Объясните, пожалуйста, почему программа не работает. Можно ли сократить ее?
P.S.
учусь в 10 классе

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 01.02.2018 в 17:59. Причина: ошибка...
piton89090 вне форума Ответить с цитированием
Старый 01.02.2018, 18:06   #2
piton89090
 
Регистрация: 01.02.2018
Сообщений: 4
По умолчанию

Все заработало!!!! Спасибо!!!
piton89090 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Числа Армстронга _Лето_ Общие вопросы C/C++ 0 09.07.2014 23:11
Задачи в ТурбоПаскаль: найти числа Армстронга и просуммировать числа в последовательности номера которых простые числа Lena1808 Помощь студентам 1 17.05.2012 08:00
числа армстронга m00nJinn Общие вопросы C/C++ 1 09.12.2011 21:27
Числа Армстронга KOMPNET Помощь студентам 6 09.10.2011 02:55
Найти все числа Армстронга от 1 до k наташка-ромашка Общие вопросы Delphi 3 31.03.2011 18:21