Подсчитать общее количество делителей натурального числа

@Paulo Dybala · Регистрация: 31.05.2016

Студворк — интернет-сервис помощи студентам

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

@SW Developer · 31.05.2016, 21:25

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var i, n, count : word;
 
begin
      readln(n);
      count := 0;
      i:= 0;
      While (i<n) do
            begin
                 i:=i+1;
                 if n mod i = 0 then Inc(count);
            end;
      writeln(count);
end.

@Sergio Leone · 31.05.2016, 23:44

SW Developer, ты забыл, что само число на себя делится, это тоже делитель!
нужно

Pascal
1
While (i<=n) do

но я бы взял другой цикл

Pascal
1
2
3
4
5
6
7
8
9
var i, n, count : word;
 
begin
      readln(n);
      count := 1;
      for i:=1 to (n div 2) do 
              if n mod i = 0 then Inc(count);
      writeln(count);
end.

@SW Developer · 01.06.2016, 13:19

Ничего я не забыл! Хорошо проанализируйте код!
А на цикл for у меня компилятор ругается: "Ошибка: переменная цикла for должна иметь тип integer, char, byte, интервальный или перечислимый.

@SW Developer · 01.06.2016, 13:38

Вот, кстати, скриншот справки по PascalABC:

@Sergio Leone · 01.06.2016, 22:37

Сообщение от SW Developer

А на цикл for у меня компилятор ругается: "Ошибка: переменная цикла for должна иметь тип integer, char, byte, интервальный или перечислимый.

Это заморочки Pascal ABC. Word у него не целочисленная и не перечисляемый тип!

ну так сделай переменную i типа integer;

Pascal
1
2
3
4
5
6
7
8
9
var  n, count : word;
  i:integer;
begin
      readln(n);
      count := 1;
      for i:=1 to (n div 2) do
              if n mod i = 0 then Inc(count);
      writeln(count);
end.

Сообщение от SW Developer

Ничего я не забыл! Хорошо проанализируйте код!

Ты прав, извини, я проглядел, что ты сначала наращиваешь переменную, а потом уже проверяешь делимость на это число.

@SW Developer · 02.06.2016, 14:57

Sergio Leone,

Pascal
1
for i:=1 to (n div 2) do

Спасибо за алгоритм! Ты до меня достучался.

@Sergio Leone · 03.06.2016, 08:50

угу. ты понял. возьмём n=1000 (разумеется, чем больше число, тем нагляднее).
у тебя перебор идёт n раз (1000 циклов).
в моём примере идёт n/2 (500 циклов)
на самом деле, для поиска делителей достаточно искать до корня из N (т.е. достаточно 100 циклов - только тогда нужно при нахождении каждого делителя добавлять к счётчику делителей 2 (если есть делитель меньше корня из N, значит, есть ему симметричный больше корня!

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git

@Paulo Dybala 0 / 0 / 0 Регистрация: 31.05.2016 Сообщений: 7

	Подсчитать общее количество делителей натурального числа 31.05.2016, 20:54. Показов 8764. Ответов 7 Метки нет (Все метки) Добрый день. Помогите пожалуйста с написанием программы на языке Паскаль. Вот условие, по которому нужно написать программу Дано натуральное число. Подсчитать общее количество его делителей. 0

@SW Developer 97 / 93 / 81 Регистрация: 10.01.2016 Сообщений: 663 Записей в блоге: 13
	01.06.2016, 13:19
	Ничего я не забыл! Хорошо проанализируйте код! А на цикл for у меня компилятор ругается: "Ошибка: переменная цикла for должна иметь тип integer, char, byte, интервальный или перечислимый. 0

@SW Developer 97 / 93 / 81 Регистрация: 10.01.2016 Сообщений: 663 Записей в блоге: 13
	01.06.2016, 13:38
	Вот, кстати, скриншот справки по PascalABC: Миниатюры 0

@Sergio Leone 2511 / 1132 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	03.06.2016, 08:50
	угу. ты понял. возьмём n=1000 (разумеется, чем больше число, тем нагляднее). у тебя перебор идёт n раз (1000 циклов). в моём примере идёт n/2 (500 циклов) на самом деле, для поиска делителей достаточно искать до корня из N (т.е. достаточно 100 циклов - только тогда нужно при нахождении каждого делителя добавлять к счётчику делителей 2 (если есть делитель меньше корня из N, значит, есть ему симметричный больше корня! 0

Подсчитать общее количество делителей натурального числа

Решение