Можно ли представить число в виде произведения трёх последовательных натуральных чисел.

@Smilodonn · Регистрация: 24.12.2009

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

1. Составить цункцию для нахождения наименьшего нечётного натурального делителя к(к<>1) любого заданного натурального числа n.
2. Дано натуральное число n. Выяснит, можно ли представить n в виде произведения трёх последовательных натуральных чисел.
Спасибо

@Puporev · 26.12.2009, 07:31

1. В условии не написано, является ли делителем само число, будем считать что нет.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
function Del(a:longint):longint;
var d:longint;
begin
d:=3;
while (a mod d<>0)and(d<=a div 3) do  d:=d+2;
if a mod d=0 then Del:=d else Del:=1;
end;
var n:longint;
begin
clrscr;
write('n=');
readln(n);
if Del(n)=1 then write('Число ',n,' не имеет нечетных делителей')
else write('Наименьший нечетный делитель=',Del(n));
readln
end.

Добавлено через 17 минут
2.

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
uses crt;
function Posl(a:longint;var i:integer):boolean;
var k:longint;
begin
i:=1;
k:=6;
while k<a do
  begin
   i:=i+1;
   k:=i*(i+1)*(i+2);
  end;
if k=a then Posl:=true else Posl:=false;
end;
var n:longint;
    m:integer;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
if Posl(n,m) then write(n,'=',m,'*',m+1,'*',m+2)
else write('Число ',n,' нельзя представить в виде трех последовательных сомножителей');
readln
end.

@Smilodonn · 27.12.2009, 08:21 **[ТС]**

Надеюсь, что вы правы, т.к. я задачу дал в таком виде, в каком получил её сам.
А скажите можно ли как-то изменить задачи, если у меня условие использовать только циклы, счётчики и подпрограммы? например repeat и until заменить на while?

Добавлено через 2 часа 51 минуту
т.е. сделать максимально понятной, без использования "сложных" функций. самые простейшие комбинации.

@Puporev · 27.12.2009, 10:06

Smilodonn, А какие "функции" здесь "сложные"? и что это вообще такое сложная функция?
Чем оператор while хуже оператора repeat? и то и другое операторы цикла без параметра. По заданию нужно было написать функции, я написал. Если что не нравится, переделайте, это Ваше задание, не мое. Не хотите сами, не умете, платите деньги, буду исполнять Ваши прихоти.

@Smilodonn · 27.12.2009, 23:17 **[ТС]**

Понятно. Почему то ожидал подобной реации, правда в менее грубой форме. Тем не менее понял) Спсаибо за проделанную работу)

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@Smilodonn 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 5

	Можно ли представить число в виде произведения трёх последовательных натуральных чисел. 26.12.2009, 06:27. Показов 4694. Ответов 4 Метки нет (Все метки) 1. Составить цункцию для нахождения наименьшего нечётного натурального делителя к(к<>1) любого заданного натурального числа n. 2. Дано натуральное число n. Выяснит, можно ли представить n в виде произведения трёх последовательных натуральных чисел. Спасибо 0

@Smilodonn 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 5
	27.12.2009, 08:21 [ТС]
	Надеюсь, что вы правы, т.к. я задачу дал в таком виде, в каком получил её сам. А скажите можно ли как-то изменить задачи, если у меня условие использовать только циклы, счётчики и подпрограммы? например repeat и until заменить на while? Добавлено через 2 часа 51 минуту т.е. сделать максимально понятной, без использования "сложных" функций. самые простейшие комбинации. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	27.12.2009, 10:06
	Smilodonn, А какие "функции" здесь "сложные"? и что это вообще такое сложная функция? Чем оператор while хуже оператора repeat? и то и другое операторы цикла без параметра. По заданию нужно было написать функции, я написал. Если что не нравится, переделайте, это Ваше задание, не мое. Не хотите сами, не умете, платите деньги, буду исполнять Ваши прихоти. 0

@Smilodonn 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 5
	27.12.2009, 23:17 [ТС]
	Понятно. Почему то ожидал подобной реации, правда в менее грубой форме. Тем не менее понял) Спсаибо за проделанную работу) 0