Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
4 / 3 / 1
Регистрация: 25.10.2019
Сообщений: 113
1

Последняя ненулевая цифра N!

26.01.2021, 18:20. Показов 743. Ответов 4
Метки нет (Все метки)

Для заданного натурального числа N найти последнюю не нулевую цифру числа N! (N-факториал).
Входные данные:

Задано единственное число N (1 < N < 1 000 000)

Пример входного файла (input.txt):

5

Выходные данные:

Вывести последюю нелулевую цифру

Пример выходного файла (output.txt):

2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  n : qword;
  i : integer;
begin
  n := 1;
  for i := 1 to 250 do
  begin
    n := n * i;
    while n mod 10 = 0 do n := n div 10;
    n := n mod 1000;
  end;
  writeln(n mod 10);
end.
Как-то не выходит(
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.01.2021, 18:20
Ответы с готовыми решениями:

Определить сколько раз в числе встречается последняя цифра
1) Дано натуральное число. Определить сколько раз в нем встречается последняя цифра. в 1, 4, 5...

Определите, сколько чисел, у которых последняя цифра 3, 5 или 7
Доброго времени, уважаемые! решаю задачу : &quot;Введите множество, состоящее из 20 целых чисел от 1...

Удалить из файла все элементы в которых последняя цифра 3
Удалить из файла все элементы в которых последняя цифра 3

Удалить из массива все элементы, в которых, последняя цифра четная
Приветствую форумчане. Прошу вас помочь с заданием. Дан массив целых чисел (n=15), заполненный...

4
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
26.01.2021, 19:12 2
Найти последнюю ненулевую цифру факториала n
вместо 250 свое введеное число.
0
4 / 3 / 1
Регистрация: 25.10.2019
Сообщений: 113
26.01.2021, 20:10  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
вместо 250 свое введеное число.
Пробовал, оно не пашет. Вообще ответы не те
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  n:qword;
  i:integer;
begin
  read(n);
  for i:=1 to n do
  begin
    n:= n * i;
    while n mod 10 = 0 do n := n div 10;
    n:= n mod 1000;
  end;
  writeln(n mod 10);
end.
0
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
26.01.2021, 20:27 4
Не знаю что ты там делаешь, у меня работает, да и volvo лажу не выкладывает.
Приведи пример что вводишь и что выводит программа.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5779 / 3478 / 2455
Регистрация: 22.11.2013
Сообщений: 9,791
Записей в блоге: 1
26.01.2021, 21:53 5
KinjongUn,
код возьмите из своего первого сообщения, а не из #3.
То, что в #3, работать не будет.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.01.2021, 21:53

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

Выяснить, первая или последняя цифра в записи числа наибольшая
Пожалуйста, помогите составить код программы такой задачи: Дано трёхзначное число. Выяснить первая...

Определить трехзначное число, у которого первая и последняя цифра чётные
Дан массив из 10 целых чисел. Напишите программу вычисления суммы элементов массива среди,...

Упорядочить по возрастанию только те элементы, последняя цифра которой равна К
Написать программу, которая упорядочивает по возрастанию только те элементы заданной...

Выбрать четные числа файла, у которых последняя цифра отлична от нуля
В файле data.txt записаны числа, сколько их – неизвестно. Выбрать четные числа, у которых последняя...

Дано натуральное число, определите сколько раз в нём встретится последняя цифра
Дано натуральное число, определите сколько раз в нём встретится последняя цифра. решение нужно...


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

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

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