Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 15, средняя оценка - 4.87
cjonson
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 1
#1

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

18.12.2013, 09:44. Просмотров 2245. Ответов 2
Метки нет (Все метки)

Помогите СРОЧНО с решением задачи. Вот ее условие:

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 минуты
Спасибо за помощь, я уже решил сам
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2013, 09:44
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Для заданного числа N определите, сколько нулей в конце десятичной записи (Turbo Pascal):

Вычислить сколько подряд идущих нулей в конце десятичной записи числа
Пусть P(A, B) есть произведение всех целых чисел от A до B включительно. Для...

Дано целое неотрицательное число. Определите количество нулей в его десятичной записи. Например для числа 103062 ответ 2
Дано целое неотрицательное число. Определите количество нулей в его десятичной...

Найти количество нулей в десятичной записи целого неотрицательного числа n (без использования строк)
Найти количество нулей в десятичной записи целого неотрицательного числа n (без...

Для заданного n, кратного 11, найти все числа, в десятичной записи которых использованы все десятичные цифры
Для заданного n, кратного 11, найти все числа, в десятичной записи которых...

Сколько различных цифр в десятичной записи числа
Задачка на цикл for: Дано Натуральное число N.Найти сумму...

Сколько различных цифр в десятичной записи данного числа
Дано натуральное число N.Сколько различных цифр в его десятичной записи....

2
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
18.12.2013, 10:16 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Посчитать количество множителей равных 2 и 5 и которых меньше столько и пар 2*5=10.
По простому так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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.
0
Напильнег
481 / 119 / 17
Регистрация: 30.09.2010
Сообщений: 473
18.12.2013, 21:06 #3
Пупорев опять мимо тазика...

Число, кратное 5 всегда дает дополнительный ноль в хвост при умножении на четное число. При вычислении факториала перед множителем, кончающемся на 5, всегда стоит четный множитель, десятки дают ноль сами по себе.

Итаг, просто количество множителей, кратных пяти: N div 5.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2013, 21:06
Привет! Вот еще темы с решениями:

Определить, сколько различных чисел встречается в десятичной записи данного натурального числа
Дано натуральное число N. Определить, сколько различных чисел встречается в его...

Дано натуральное число n. Определите, сколько раз цифра k встречается в записи данного числа
Дано натуральное число n. Определите, сколько раз цифра k встречается в записи...

Определить, сколько цифр находится в записи всех чисел в диапазоне от 1 до заданного числа
Пользователь задает число. компьютер находит, сколько цифр 0,1,2,...9 находится...

Для заданного числа n определите делится ли оно на 9, используя признак делимости
1. для заданного числа n определите делится ли оно на 9, используя признак...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru