Программа для подсчета нулей факториала

@blkmg · Регистрация: 28.03.2019

Напишите программу, которая для любого целого числа K до 10000 находит число нулей в записи K! в десятичной системе счисления. Программа должна быть как можно более эффективная.

Пожалуйста помогите решить(желательно на pascal) !!!

@JuriiMW · 07.05.2019, 09:59

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

желательно на pascal

Во-первых, вы в разделе паскаля. Так на чём же вам тут ещё могут написать?
А во-вторых, паскаль - паскалю рознь!
К примеру, на PascalABC.NET можно написать так:

Pascal

begin
  var b:=biginteger.One;
  for var i:=1 to ReadInteger do b*=i;
  b.ToString.Count(c->c='0').Println;
end.

И работать это будет в разы быстрее, чем вот так на TP:

Pascal

var
  b:array [0..40000]of Byte;k,i,l,z,d:Longint;
begin
  ReadLn(k);if(k<0)or(k>10000) then Halt;
  for i:=0 to 40000 do b[i]:=0;b[0]:=1;l:=1;z:=0;
  for k:=2 to k do
    begin
      d:=0;
      for i:=0 to l-1 do begin d:=d+k*b[i];b[i]:=d mod 10;d:=d div 10;end;
      while d>0 do begin b[l]:=d mod 10;d:=d div 10;inc(l);end;
      while b[0]=0 do begin inc(z);dec(l);for i:=1 to l do b[i-1]:=b[i];end;
    end;
  for i:=1 to l-1 do if b[i]=0 then inc(z);
  WriteLn(z);
end.

@blkmg 0 / 0 / 0 Регистрация: 28.03.2019 Сообщений: 23
		1
	Программа для подсчета нулей факториала 07.05.2019, 07:50. Показов 2288. Ответов 1 Метки pascal abc, информатика (Все метки) Напишите программу, которая для любого целого числа K до 10000 находит число нулей в записи K! в десятичной системе счисления. Программа должна быть как можно более эффективная. Пожалуйста помогите решить(желательно на pascal) !!! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Программа для подсчета нулей факториала

Решение