факториал

[Visockiy]

Ребята помогите. Не могу решить элементарную задачу, парюсь над последним действием. " Дано число n! и цифра k. Определить сколько раз цифра к встречается в числе n!." (pascal)

[Abstraction]

В каком виде "дано число n!"?

[Visockiy]

это обычный факториал типа (3 или 4) пользватель сам задаёт его.

[StudentMarat]

// рекурсивная функция
function factorial (n: integer) integer;
begin
   if n>1
   then
      factorial: = n*factorial(n-1)
   else
   factorial:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   k: integer;   // число, факториал которого надо вычислить
   f: integer;   // значание факториала числа k
begin
   k:=StrToInt(edit1.text);
   f:=factorial(k);
   label2.caption:='Факториал  числа '+edit1.text+' равен '+IntToStr(f);
end;

[Serge_Bliznykov]

факториал это чрезвычайно быстрорастущая функция, для очень небольших (сравнительно) N уже не хватает разрядной сетки, чтобы найти N!

поэтому, вопрос Вам - N у Вас в задаче ограничен максимальной величиной или нет?

p.s. это я про экстенсивный путь решения - "в лоб" - вычисляем факториал N! и разбирая его на отдельные цифры сравниваем с K. НО! я вполне допускаю, что задача имеет более "красивое", алгоритмически намного более эффективное решение.

[Visockiy]

я уже понял как её писать
вот код если интересно

uses crt;
type
mas=array[0..256] of integer;
var
sum, i, n, k, count: integer;
a: mas;
begin
readln(n);
readln(k);
sum:=1;
clrscr;
for i:=1 to n do //ищем факториал
sum:=sum*i; // числа
writeln(n,'!=',sum);
i:=1;
while sum<>0 do
begin
a[i]:=sum mod 10; //переписываем число
sum:=sum div 10; // по элементам в массив
if a[i]=k then //сравниваем число с заданным К
inc(count); //если цифра равна К-увеличиваем счетчик
end;
writeln('count=',count);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[BDA]

Оформляйте код кнопочкой #.

var
  sum, i, n, k, count: integer;

begin
  readln(n);
  readln(k);
  sum := 1;
  for i := 1 to n do // ищем факториал
    sum := sum * i; // числа
  writeln(n, '! = ', sum);
  count := 0;
  while sum <> 0 do
  begin
    inc(count, ord(sum mod 10 = k));
    sum := sum div 10;
  end;
  writeln('count = ', count);
  readln;
end.

Зачем Вам массив?

[Serge_Bliznykov]

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

Зачем Вам массив?

BDA,+100500!

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

я уже понял как её писать

Visockiy, а попробуйте задать N равным, например, 80 (K любое, на ваш выбор).
Всё нормально работает?

[pray_driver]

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

BDA,+100500!



Visockiy, а попробуйте задать N равным, например, 80 (K любое, на ваш выбор).
Всё нормально работает?

программа скорее всего будет работать для N=1 ... 7 , поскольку 7! = 5040, а 8! =40320, что уже превышает великое и могучее число 32767 :-)

[Sciv]

что уже превышает великое и могучее число 32767

А про еще более великий и могучий longint ничего не слышали?

Если его использовать то можно аж до 12! дотянуть в 32-битной системе.