Даны два целых числа a и b, определить их общие делители.

@fly5500 · Регистрация: 01.05.2011

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

Даны два целых числа a и b, определить их общие делители.

Заранее благодарен

@abelix · 27.05.2011, 19:14

Pascal
1
2
3
4
5
6
7
8
9
10
var
a,b,c,i,j:integer;
del:array[1..50] of integer;
begin
if a>b then c:=a
       else c:=b;
j:=0;
for i:=1 to c do
if (((a mod i) =0)and((b mod i) =0)) then begin inc(j);del[j]:=i; end;
end.

@fly5500 · 27.05.2011, 19:22 **[ТС]**

а тут находится разве не наибольший делитель? Мне просто нужно найти все делители

@abelix · 27.05.2011, 19:32

нет оно находит все делители в переменной массива del[], ты наверное добавил вывод после цикла вот оно тебе показало последный делитель

@lamed · 27.05.2011, 19:36

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
28
{ Даны два целых числа a и b, определить их общие делители. }
var
  a,b: integer;
  i: integer;
begin
  readln(a,b);
  while (a>0) and (a<>b) do
    if a>b then
      a:=a - b
    else
      b:= b - a;
  if b>1 then
  begin
  i:= 1;
  while i*i<b do
    begin
      if b mod i=0 then
        writeln('(',i, ';', b div i,')');
      inc(i);
    end;
  if i*i=b then
    writeln('(',i,')');
  end
  else
      writeln('(1)');
  readln;
  
end.

@fly5500 · 27.05.2011, 19:43 **[ТС]**

Всем спасибо, работает)

magirus · 27.05.2011, 21:00

Комментарий модератора

называйте темы максимально информативно(Правила п.3.3)

Новые блоги и статьи Все статьи Все блоги /
Динамические массивы в C++ - создание и использование NullReferenced 27.04.2025 Динамические массивы представляют собой один из фундаментальных инструментов программирования на C++, позволяющий создавать структуры данных, размер которых определяется во время выполнения. . .	Асинхронный JavaScript: Промисы, Async/Await и Fetch API Reangularity 27.04.2025 Пользователь заходит на веб-страницу, нажимает кнопку и. . . ничего не происходит. Сайт словно замер. Через несколько секунд всё внезапно оживает, но пользователь уже успел закрыть вкладку. Знакомая. . .	Management on GitLab and repository management in Visual Studio code jigi33 27.04.2025 - repo management on GitLab - CI/ CD in GitLab - VCS repository management in Visual Studio code (see attachments)	Kanban или Scrum - что выбрать? EggHead 27.04.2025 Kanban и Scrum — уже много лет удерживают лидирующие позиции среди гибких подходов. Руководители проектов и команды разработчиков то и дело сталкиваются с дилеммой: какой из этих двух методов выбрать. . .	Кастомные Middleware на C# в ASP.NET Core UnmanagedCoder 27.04.2025 Разработка веб-приложений сегодня мало напоминает монолитное программирование прошлых лет. На смену громоздким блокам кода пришла модульная архитектура, где каждый компонент выполняет строго. . .
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .

@fly5500 0 / 0 / 0 Регистрация: 01.05.2011 Сообщений: 12

	Даны два целых числа a и b, определить их общие делители. 27.05.2011, 18:45. Показов 1729. Ответов 6 Метки нет (Все метки) Даны два целых числа a и b, определить их общие делители. Заранее благодарен 0

@fly5500 0 / 0 / 0 Регистрация: 01.05.2011 Сообщений: 12
	27.05.2011, 19:22 [ТС]
	а тут находится разве не наибольший делитель? Мне просто нужно найти все делители 0

@abelix 10 / 10 / 5 Регистрация: 30.11.2009 Сообщений: 119
	27.05.2011, 19:32
	нет оно находит все делители в переменной массива del[], ты наверное добавил вывод после цикла вот оно тебе показало последный делитель 0

@fly5500 0 / 0 / 0 Регистрация: 01.05.2011 Сообщений: 12
	27.05.2011, 19:43 [ТС]
	Всем спасибо, работает) 0

Опции темы