Пытаюсь написать программу по нахождению НОК, но программа зацикливается

@MrCapitosha · Регистрация: 01.03.2018

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

Доброго времени суток. Я уже все перепробовал, но на repeat программа зацикливается. В чем ошибка?

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
29
30
31
32
33
program nok;
var a,b,c,d,f:integer;
begin
writeln('Введите два числа:');
readln(a,b);
if a>=b then begin
 
if (a mod b=0) and (a mod a=0) then begin
writeln('НОК:',a);
exit;
end;
 
repeat
f:=a+1;
until (f mod b=0) and (f mod a=0);
 
writeln('НОК:',f);
 
end
else begin
 
if (b mod a=0) and (b mod b=0) then begin
writeln('НОК:',a);
exit;
end;
 
repeat
d:=b+1;
until (d mod a=0) and (d mod b=0);
 
writeln('НОК:',d);
end;
end.

@кот Бегемот · 01.03.2018, 21:36

Что это за бешеный алгоритм? Чтобы найти НОК, вполне достаточно найти НОД с помощью алгоритма Евклида и поделить на него произведение чисел

PS

Сообщение от MrCapitosha

(if...a mod a=0)

Да будет Вам известно, что a mod a=0 в любое время суток, при любой погоде, независимо от политической ситуации.

Так же как и

Сообщение от MrCapitosha

(b mod b=0)

@Burtecca · 02.03.2018, 11:08

Вот алгоритм по нахождению НОК:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  a, b, ans: longint;
 
function gcd(a, b: longint): longint;
begin
  if (a * b = 0) then
    gcd := a + b
  else
    gcd := gcd(b, a mod b);
end;
 
function lcm(a, b: longint): longint;
begin
  lcm := (a div gcd(a, b)) * b;
end;
 
begin
  readln(a, b);
  ans := lcm(a, b);
  writeln(ans);
end.

@eaa · 02.03.2018, 12:44

Pascal
1
2
3
4
5
6
begin
  var (a, b) := ReadInteger2('Введите два натуральных числа:');
  var i := a;
  while i mod b > 0 do i += a;
  Print('НОК =', i)
end.

Новые блоги и статьи Все статьи Все блоги /
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Programma_Boinc 08.07.2025 Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .	Раскрываем внутренние механики Android с помощью контекста и манифеста mobDevWorks 07.07.2025 Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .	API на базе FastAPI с Python за пару минут AI_Generated 07.07.2025 FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .	Основы WebGL. Раскрашивание вершин с помощью VBO 8Observer8 05.07.2025 На русском https:/ / vkvideo. ru/ video-231374465_456239020 На английском https:/ / www. youtube. com/ watch?v=oskqtCrWns0 Исходники примера:	Мониторинг микросервисов с OpenTelemetry в Kubernetes Mr. Docker 04.07.2025 Проблема наблюдаемости (observability) в Kubernetes - это не просто вопрос сбора логов или метрик. Это целый комплекс вызовов, которые возникают из-за самой природы контейнеризации и оркестрации. К. . .
Проблемы с Kotlin и Wasm при создании игры GameUnited 03.07.2025 В современном мире разработки игр выбор технологии - это зачастую балансирование между удобством разработки, переносимостью и производительностью. Когда я решил создать свою первую веб-игру, мой. . .	Создаем микросервисы с Go и Kubernetes golander 02.07.2025 Когда я только начинал с микросервисами, все спорили о том, какой язык юзать. Сейчас Go (или Golang) фактически захватил эту нишу. И вот почему этот язык настолько заходит для этих задач: . . .	C++23, квантовые вычисления и взаимодействие с Q# bytestream 02.07.2025 Я всегда с некоторым скептицизмом относился к громким заявлениям о революциях в IT, но квантовые вычисления - это тот случай, когда революция действительно происходит прямо у нас на глазах. Последние. . .	Вот в чем сила LM. Hrethgir 02.07.2025 как на английском будет “обслуживание“ Слово «обслуживание» на английском языке может переводиться несколькими способами в зависимости от контекста: * Service — самый распространённый. . .	Использование Keycloak со Spring Boot и интеграция Identity Provider Javaican 01.07.2025 Два года назад я получил задачу, которая сначала показалась тривиальной: интегрировать корпоративную аутентификацию в микросервисную архитектуру. На тот момент у нас было семь Spring Boot приложений,. . .

Опции темы

Пытаюсь написать программу по нахождению НОК, но программа зацикливается

Решение