Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
nikita122332
0 / 0 / 0
Регистрация: 31.03.2014
Сообщений: 1
#1

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

03.04.2014, 12:53. Просмотров 1334. Ответов 1
Метки нет (Все метки)

Среди трехзначных чисел найти такие, в которых сумма факториалов цифр равнялась бы самому числу. Использовать подпрограмму вычисления факториала натурального числа. (n!=1*2*3*…*n)./ abc pascal
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2014, 12:53
Ответы с готовыми решениями:

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

Найти все трехзначные числа, сумма цифр которых равна данному целому числу
Найти все трехзначные числа, сумма цифр которых равна данному целому числу.

Найти все трехзначные числа, сумма квадратов цифр которых равна заданному числу N
Условие задачи звучит так: Найти все трехзначные числа, сумма квадратов цифр...

Вывести все трехзначные числа, для которых сумма цифр равна введённому числу
Решите пожалуйста срочно задачу!

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

1
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
03.04.2014, 15:43 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Нашлось только одно такое число: 145

Pascal
1
2
3
4
5
6
7
8
9
Function Fact(A : Longint) : Longint;
Begin
  If A>0 then Fact:=A*Fact(A-1) else Fact:=1;
End;
 
Begin
  For i:=100 to 999 do
    If Fact(i div 100)+Fact((i div 10) mod 10)+Fact(i mod 10)=i then Writeln(i);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.04.2014, 15:43

Вывести все трехзначные числа сумма цифр которых равна заданному числу N
Вложенные циклы. Вывести все трехзначные числа сумма цифр которых равна...

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

Найти все трехзначные числа, сумма квадратов цифр которых кратна заданному числу m
Задача: Найти все трехзначные числа сумма квадратов цифр, которых кратна...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru