Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
nikita122332
0 / 0 / 0
Регистрация: 31.03.2014
Сообщений: 1
#1

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

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

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

Найти все трехзначные числа, сумма квадратов цифр которых равна заданному числу N - Pascal ABC
Условие задачи звучит так: Найти все трехзначные числа, сумма квадратов цифр которых равна заданному числу N Я сделал такую программу...

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

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

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

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

Вывести все трехзначные числа сумма цифр которых равна заданному числу N - Pascal ABC
Вложенные циклы. Вывести все трехзначные числа сумма цифр которых равна заданному числу N Программа не полностью работает,...

1
APALoff
1637 / 1066 / 470
Регистрация: 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
Привет! Вот еще темы с ответами:

Найти все трехзначные числа, сумма квадратов цифр которых кратна заданному числу m - Pascal
Задача: Найти все трехзначные числа сумма квадратов цифр, которых кратна заданному числу m. Составить программу, которая выводит такие...

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

Найти все трехзначные числа, сумма цифр которых равна N - Pascal ABC
Итак,мне нужно решить задачку,не используя массивы(mass,array ну и т.п)а просто со циклами там всякими,вложенными например,так вот 2...

Найти все трехзначные числа, сумма цифр которых равна N - Pascal ABC
Дано натуральное число n. Найти все трехзначные числа, сумма цифр которых равна N. Операции деления, целочисленного деления и определения...


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

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

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