Составить программу для нахождения наибольшего общего и наименьшего общего кратного двух натуральных чисел

@sisaw · Регистрация: 11.12.2013

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

составить программу для нахождения наибольшего общего и наименьшего общего кратного двух натуральных чисел НОК(A,B)=A*B/НОД(A,B)

@code-n'-help · 06.05.2014, 20:09

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
 var a,b,p : real;
     nod,nok : real;
 begin
   clrscr;
   write('a=');readln(a);
   write('b=');readln(b);
   p:=a*b;
   while a<>b do
    if a>b then a:=a-b
           else b:=b-a;
   nod:=a;
   nok:=p/nod;
   writeln('НОД:',a);
   write('НОК:',nok);
   readln;
 end.

@sisaw · 06.05.2014, 20:12 **[ТС]**

через процедуры забыл уточнить

Новичок · 06.05.2014, 21:05

sisaw, ну что за дураки?! Ну с процедурами красиво не напишешь, вот с функциями...

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure nod(a,b:Integer;var c:Integer);
begin
 while a<>b do
  if a>b then a:=a-b
   else b:=b-a;
 c:=a;
 Writeln('НОД:',c);
end;
 
procedure nok(a,b,nod:Integer);
begin
Writeln('НОК:',a*b div nod);
end;
 
var a,b,c:Integer;
begin
 Write('a=');Readln(a);
 Write('b=');Readln(b);
 nod(a,b,c);
 nok(a,b,c);
 Readln;
end.

@ciocca125 · 29.07.2022, 01:41

Добрый день. Здесь 3 программы для вычисления НОД двух натуральных чисел:
алгоритм Евклида
перебор возможных делителей
разложение чисел на простые множители

@JuriiMW · 29.07.2022, 05:28

ciocca125, а вот ЗДЕСЬ правила, с которыми вы согласились, когда регистрировались!

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук 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-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@sisaw 0 / 0 / 0 Регистрация: 11.12.2013 Сообщений: 24

	Составить программу для нахождения наибольшего общего и наименьшего общего кратного двух натуральных чисел 06.05.2014, 20:06. Показов 56725. Ответов 5 Метки нет (Все метки) составить программу для нахождения наибольшего общего и наименьшего общего кратного двух натуральных чисел НОК(A,B)=A*B/НОД(A,B) 0

@sisaw 0 / 0 / 0 Регистрация: 11.12.2013 Сообщений: 24
	06.05.2014, 20:12 [ТС]
	через процедуры забыл уточнить 0

@ciocca125 3 / 2 / 1 Регистрация: 09.10.2018 Сообщений: 15
	29.07.2022, 01:41
	Добрый день. Здесь 3 программы для вычисления НОД двух натуральных чисел: алгоритм Евклида перебор возможных делителей разложение чисел на простые множители 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	29.07.2022, 05:28
	ciocca125, а вот ЗДЕСЬ правила, с которыми вы согласились, когда регистрировались! 0