Для заданного числа N определите, сколько нулей в конце десятичной записи - Turbo Pascal

Формулировка задачи:

Помогите СРОЧНО с решением задачи. Вот ее условие: N-Factorial - это произведение всех чисел от 1 до N. Для заданного числа N определите, сколько нулей в конце десятичной записи N-Factorial. Пример: A.in A.out Комментарий 4 0 1*2*3*4=24 6 1 1*2*3*4*5*6=720 10 2 1*2*3*4*5*6*7*8*9*10=3628800 Добавлено через 1 час 2 минуты Спасибо за помощь, я уже решил сам

Код к задаче: «Для заданного числа N определите, сколько нулей в конце десятичной записи - Turbo Pascal»

textual
var n,k2,k5,i,a:integer;
begin
write('n=');
read(n);
k2:=0;
k5:=0;
for i:=2 to n do
 begin
  a:=i;
  if a mod 2=0 then
  while a>=2 do
   begin
    a:=a div 2;
    k2:=k2+1;
   end;
  a:=i;
  if a mod 5=0 then
  while a>=5 do
   begin
    a:=a div 5;
    k5:=k5+1;
   end;
 end;
if k2<k5 then write(k2)
else write(k5);
readln
end.

10   голосов, оценка 4.100 из 5


СОХРАНИТЬ ССЫЛКУ