Найти все трехзначные числа Армстронга - Turbo Pascal

Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.63/40:

@Druggy 0 / 0 / 0 Регистрация: 01.11.2013 Сообщений: 4

	Найти все трехзначные числа Армстронга 01.11.2013, 19:53. Показов 7660. Ответов 1 Метки нет (Все метки) Найти все трехзгачные числа Амстронга( числа, равные сумме кубов своих цифр) 0

Лучшие ответы (1)

Сообщение: #5272146

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

01.11.2013, 19:53

Ответы с готовыми решениями:

Найти все числа Армстронга от 1 до k
Через функции: задача : натуральное число в записи которого n цифр,называется числом Армстронга,если сумма его цифр, в степень n ,...

Найти все числа Армстронга в диапазоне от a до b
. Найти все числа Армстронга в диапазоне от a до b, где a и b – целые натуральные числа. Написать подпрограмму, которая находит сумму...

Найти все числа Армстронга в диапазоне от a до b
Найти все числа Армстронга в диапазоне от a до b, где a и b – целые натуральные числа. Написать подпрограмму, которая находит сумму кубов...

Reveng

424 / 424 / 338

Регистрация: 25.06.2012

Сообщений: 668

01.11.2013, 20:11

Сообщение было отмечено Druggy как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var
  i, a, b, c : integer;
begin
  for i := 100 to 999 do
    begin
      a := i mod 10;
      b := i div 100;
      c := (i div 10) mod 10;
      if (i = a * a * a + b * b * b + c * c * c) then Writeln(i);
    end;
  Readln;
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

01.11.2013, 20:11

Помогаю со студенческими работами здесь

Найти все числа Армстронга. состоящие из 2,3 или 4 цифр
Натуральное число, состоит из n цифр является числом Армстронга, если сумма его цифр, поднисённых в n-й степени, равен самому числу...

Найти все трехзначные числа,определив функцию, позволяющую распознавать простые числа
1)Найти все трехзначные числа,определив функцию, позволяющую распозновать простые числа. Помогите!!!!! пожалуйста!!!!

Найти все трехзначные числа
помогите написать прогу))) Найти все трехзначные числа, которые состоят из различных цифр.)))

Найти все трёхзначные числа
В трехзначном числе, все цифры которого нечетны, зачеркнули среднюю цифру. Оказалось, что полученное двухзначное число является делителем...

Найти все целые числа трехзначные числа произведение цифр которых равно заданному числу.
Если можно решение с помощью вложенного цикла

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

Наверх