pascal ABC - Помощь студентам

lyulka · 09.12.2011, 21:20

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

Mad_Cat · 09.12.2011, 21:50

Код:

var
a:array[0..9] of longint;
i,j,k:integer;
begin
a[0]:=1;
For i:=1 to 9 do
a[i]:=a[i-1]*i;
for i:=1 to 9 do
for j:= 0 to 9 do
For k:=0 to 9 do
if a[i]+a[j]+a[k]=i*100+j*10+k then writeln(a[i],'+',a[j],'+',a[k],'=',i*100+j*10+k);
end.

Serge_Bliznykov · 09.12.2011, 23:15

Тема не отражает суть задачи

да и поиском можно легко найти готовые решение на форуме!
например,
отсюда взять и немного передалеть

ЗАКРЫТО

09.12.2011, 21:20	#1
lyulka Пользователь Регистрация: 17.11.2011 Сообщений: 14	pascal ABC Найти все трехзначные числа, представимые в виде сумм факториалов своих цифр.

09.12.2011, 21:50	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `var a:array[0..9] of longint; i,j,k:integer; begin a[0]:=1; For i:=1 to 9 do a[i]:=a[i-1]i; for i:=1 to 9 do for j:= 0 to 9 do For k:=0 to 9 do if a[i]+a[j]+a[k]=i100+j10+k then writeln(a[i],'+',a[j],'+',a[k],'=',i100+j*10+k); end.` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Pascal ABC	EvilCry	Помощь студентам	2	23.11.2011 20:21
Неудобство ABC Pascal и глюк Borland Pascal	proser93	Помощь студентам	0	19.11.2011 19:01
Pascal ABC	Роман Kisner	Помощь студентам	1	17.04.2011 15:22
Turbo Pascal or Pascal ABC	Ikram	Паскаль, Turbo Pascal, PascalABC.NET	0	27.04.2010 13:44

09.12.2011, 23:15	#3
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	Тема не отражает суть задачи да и поиском можно легко найти готовые решение на форуме! например, отсюда взять и немного передалеть ЗАКРЫТО