|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.05.2012, 21:34 | #1 |
Новичок
Джуниор
Регистрация: 16.05.2012
Сообщений: 2
|
Задачи в ТурбоПаскаль: найти числа Армстронга и просуммировать числа в последовательности номера которых простые числа
1. Числом Армстронга называется целое n-значное число, сумма n-х степеней цифр которого равна самому этому числу. Например, числом Армстронга является число 407, так как 407 = 4 в 3 степени + 0в 3 степени + 7 в 3 степени. Найдите все числа Армстронга для заданного n <= 10.
2. Дана последовательность из не менее двух чисел, за которой следует ноль. Вычислить сумму тех из них, порядковые номера которых – простые числа. _________ Название темы должно адекватно отражать суть решаемой задачи/проблемы. На первый раз я исправил. В дальнейшем темы с подобным названием будут закрываться/удаляться, а автор такой темы получать штрафы. Прошу учесть на будущее... Модератор. Последний раз редактировалось Serge_Bliznykov; 17.05.2012 в 09:19. |
17.05.2012, 08:00 | #2 |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
проверьте код
Код:
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывести числа, из диапазона от n до m у которых, количество единичных разрядов в двоичном представлении числа нечетно | sheff123 | Помощь студентам | 8 | 05.01.2012 15:35 |
Найти числа произведение которых самое большое | Arn1 | Помощь студентам | 4 | 03.10.2011 13:27 |
Найти все числа Армстронга от 1 до k | наташка-ромашка | Общие вопросы Delphi | 3 | 31.03.2011 18:21 |
вводим два числа, получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m | Sparky | Помощь студентам | 2 | 22.11.2009 21:59 |
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа | Woland-itn | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 23.03.2008 21:49 |