Найти все такие числа, что при делении всех исходных чисел на найденное получались равные остатки

@Тайыр · Регистрация: 01.11.2015

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

Люк занимается международными грузоперевозками. Самая большая его проблема — это гра-
ница с Польшей. Эта граница является въездом в Европейский Союз, так что каждый грузовик
тщательно и долго проверяют. Чтобы убить время, Люк играет в различные математические игры.
В одной из таких игр Люк выписывает N целых чисел на лист бумаги. Затем он пытается найти
целое число M больше 1 такое, что все числа на листке бумаги дают одинаковый остаток при
делении на число M. Люк пытается найти как можно больше различных M.
Напишите программу, которая по заданным N числам определяет все возможные M.
Формат входных данных
В первой строке входного файла вводится одно натуральное число N (2 ⩽ N ⩽ 100), количество
чисел на бумаге.
Каждая из последующих N строк содержит в себе одно число ai (1 ⩽ ai ⩽ 109
). Все ai различные
(ai ̸= aj∀i ̸= j).
Гарантируется, что существует хотя бы одно M.
Формат выходных данных
Выведите все M в порядке возрастания.
Примеры
стандартный ввод стандартный вывод
3
6
34
38
Ответ:
2 4
----------
5
5
17
23
14
83
Ответ:
3

@кот Бегемот · 01.11.2015, 17:26

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
var
min:longint;
a:array[1..100]of longint;
n,i,j,f:integer;
begin
readln(N);
min:=maxlongint;
for i:=1 to n do
begin
read(a[i]);
if a[i]<min then min:=a[i];
end;
for i:=2 to min do
 begin
 f:=1;
 for j:=2 to n do
  if a[j] mod i<>a[j-1] mod i then
  begin
  f:=0;
  break;
  end;
   if f=1 then write(i,' ');
    end;
    end.

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход 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. . .

@Тайыр 0 / 0 / 1 Регистрация: 01.11.2015 Сообщений: 3

	Найти все такие числа, что при делении всех исходных чисел на найденное получались равные остатки 01.11.2015, 16:39. Показов 1947. Ответов 1 Метки нет (Все метки) Люк занимается международными грузоперевозками. Самая большая его проблема — это гра- ница с Польшей. Эта граница является въездом в Европейский Союз, так что каждый грузовик тщательно и долго проверяют. Чтобы убить время, Люк играет в различные математические игры. В одной из таких игр Люк выписывает N целых чисел на лист бумаги. Затем он пытается найти целое число M больше 1 такое, что все числа на листке бумаги дают одинаковый остаток при делении на число M. Люк пытается найти как можно больше различных M. Напишите программу, которая по заданным N числам определяет все возможные M. Формат входных данных В первой строке входного файла вводится одно натуральное число N (2 ⩽ N ⩽ 100), количество чисел на бумаге. Каждая из последующих N строк содержит в себе одно число ai (1 ⩽ ai ⩽ 109 ). Все ai различные (ai ̸= aj∀i ̸= j). Гарантируется, что существует хотя бы одно M. Формат выходных данных Выведите все M в порядке возрастания. Примеры стандартный ввод стандартный вывод 3 6 34 38 Ответ: 2 4 ---------- 5 5 17 23 14 83 Ответ: 3 0

Найти все такие числа, что при делении всех исходных чисел на найденное получались равные остатки

Решение