задачи в турбо паскале.

[Андрей9]

1)фактарион-такое натуральное число,которое равно сумме факториалов своих цифр.например,145=1!+4!+5!=1+24+120 .НАЙТИ ВСЕ ФАКТАРИОНЫ В ПРОМЕЖУТКЕ ОТ 1 ДО ВВЕДЕННОГО N.
2)дано натуральное числа К и n.подсчитайте квадрат суммы К первых цифр числа N.
3)найти все трехзначные числа, которые при умножении на 2 оканчиваются на 8 а,при умножении на 3 - на 4.

[Tronix]

1) Если судить по http://en.wikipedia.org/wiki/Factorion , то:

case n of
   1: fac := 1;
   2: fac := 2;
   3: fac := 145;
   4: fac := 40585;
else
   fac := 0;
end;

If fac = 0 then WriteLn('Не существует') else
WriteLn(fac);

[rubius2008]

1.

function fac(n:integer):integer;
begin
  if (n=0) or (n=1) then fac:=1
  else fac:=n*fac(n-1);
end;
...
begin
...
 for i:=1 to n do begin
   k:=i;
   while k>0 do begin
     s:=s+fac(k mod 10);
     k:=k div 10;
   end;
   writeln('Фактарион ',i,' = ',s);
 end;
...
end.

3.

for i:=100 to 999 do 
  if ((i*2) mod 10=8) and ((i*3) mod 10=4) then writeln(i);

[arrowsf1]

Сообщение от Андрей9

2)дано натуральное числа К и n.подсчитайте квадрат суммы К первых цифр числа N.

В этом есть пояснения. Можь я тупой, но не как не вникну.

ПС
Кстати в первой задаче, по моему, вам дали не верный код. В плане того, что факторион должен считатся, как я понял, не от мод, а просто по последовательности суммы факториалов

[arrowsf1]

function fac(n:integer):integer;
begin
  if (n=0) or (n=1) then fac:=1
  else fac:=n*fac(n-1);
end;
...
begin
...
 for i:=1 to n do begin
   s:=0;
   for k:=1 to i do begin
     s:=s+fac(k);
   end;
   writeln('Фактарион ',i,' = ',s);
 end;
...
end.

ИМХО, как я понял!!!

[rubius2008]

Сообщение от arrowsf1

function fac(n:integer):integer;
begin
  if (n=0) or (n=1) then fac:=1
  else fac:=n*fac(n-1);
end;
...
begin
...
 for i:=1 to n do begin
   s:=0;
   for k:=1 to i do begin
     s:=s+fac(k);
   end;
   writeln('Фактарион ',i,' = ',s);
 end;
...
end.

ИМХО, как я понял!!!

Код в моем посте верный, а вот ваш как раз наоборот, читаем внимательно задание!

[arrowsf1]

Сообщение от rubius2008

Код в моем посте верный, а вот ваш как раз наоборот, читаем внимательно задание!

извините думал сумме факториалов от 1 до числа