Найти наименьшее общее кратное двух натуральных чисел

@GROMOZEKA82 · Регистрация: 23.05.2013

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

Надо cocтaвить прoцедyрy для нaxoждения нaименьшегo oбщегo крaтнoгo двyx нaтyрaльныx чиcел. , где нoд(a,в) нaxoдят метoдoм Евклидa. В ocнoвнoй прoгрaмме ввеcти три знaчения a,b,c, нaйти НoК для coчетaний (a,b), (b,c), (a,c). Вcе резyльтaты вывеcти нa экрaн.

@CodeR · 28.06.2013, 06:18

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Var a,b,c,t:integer;
Procedure NoK(a,b:integer;Var nk:integer);
Begin
    nk:=a*b;
    While a<>b do
     if a>b then a:=a-b
      else b:=b-a;
    nk:=t div a
End;
Begin
    write('a,b,c: ');readln(a,b,c);
    Nok(a,b,t);
    writeln('NoK(a,b) = ',t);
    Nok(b,c,t);
    writeln('NoK(b,c) = ',t);
    Nok(a,c,t);
    writeln('NoK(a,c) = ',t);
    readln;
End.

Новые блоги и статьи Все статьи Все блоги /
сукцессия 30. Фосфорный и азотный замки по "честному" закону лимитирования Либиха anaschu 16.07.2026 Основные достижения за последние дни 1. Механизм отложенного высвобождения фосфора Добавлен специальный пул для медленного разложения меланизированных гиф ЕСМ Реализована разная скорость. . .	Запрет пометки на удаление и отмены проведения Maks 16.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "ПутевойЛист" разработанного в КА2. Задача: запретить помечать на удаление и отменять проведения путевого листа при условии, если он сдан. . .	Как надо было делать правильно - вообще не слушать ИИ, его дело - текст. Hrethgir 15.07.2026 А вообще надо было делать не так, чтобы не исправлять ошибку https:/ / www. cyberforum. ru/ blogs/ 223907/ 10996. html , правильно было : удалил кнопку, а потом добавил её. Всё это стресс конечно. Почему?. . .	Знаете, от чего появляется стресс? kumehtar 15.07.2026 Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот. Ларри Уингет
Нас бьют, а мы крепчаем? Какая чушь! kumehtar 15.07.2026 Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .	сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .

@GROMOZEKA82 0 / 0 / 1 Регистрация: 23.05.2013 Сообщений: 98

	Найти наименьшее общее кратное двух натуральных чисел 28.06.2013, 05:49. Показов 2102. Ответов 1 Метки нет (Все метки) Надо cocтaвить прoцедyрy для нaxoждения нaименьшегo oбщегo крaтнoгo двyx нaтyрaльныx чиcел. , где нoд(a,в) нaxoдят метoдoм Евклидa. В ocнoвнoй прoгрaмме ввеcти три знaчения a,b,c, нaйти НoК для coчетaний (a,b), (b,c), (a,c). Вcе резyльтaты вывеcти нa экрaн. 0

Найти наименьшее общее кратное двух натуральных чисел

Решение