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

@ander2014638 · Регистрация: 16.10.2017

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

даны 3 натуральных числа . Найдите наименьшее общее кратное этих чисел . Вычислите наибольшего общего делителя двух чисел оформить в виде процедуры пользователя .

@Ivandur · 12.11.2017, 19:31

Процедурка

Pascal

procedure NOD(A,B:integer;RES:integer;);
begin
while a<>b do
  begin
  if a>b then
    a:=a mod b
  else
    b:=b mod a;
  end;
res:=a;
end;

@ander2014638 · 12.11.2017, 19:34 **[ТС]**

но хотелось что бы кто нибудь всю программу скинул)))

@Ivandur · 12.11.2017, 19:52

Pascal

procedure NOD(A,B:integer;RES:integer;);
begin
while a<>b do
  begin
  if a>b then
    a:=a mod b
  else
    b:=b mod a;
  end;
res:=a;
end;
var a,b,c,nok,nn:integer;
begin
readln(a,b,c);
nod(a,b,nn);
nok:=a*b/nn;
nod(nn,c,nn);
nok:=nok*c/nn;
writeln(nok);
end.

@ander2014638 · 12.11.2017, 19:55 **[ТС]**

не пашет она

@Ivandur · 12.11.2017, 20:14

А как не пашет, не компиляется, или вылетает после запуска, или выдаёт чегой-то не того?
А то я не отлаживал, так что могут быть очепятки и ашыпки.

@ander2014638 · 12.11.2017, 20:44 **[ТС]**

нельзя преобразовать реал к интеджер
в процедуре ошибка

@Ivandur · 12.11.2017, 22:00

А, точно. надо заменить все / на div. И пробелы не забыть.

@ander2014638 · 12.11.2017, 23:12 **[ТС]**

а там тогда проблема в делении на ноль

@Ivandur · 13.11.2017, 08:15

Pascal

procedure NOD(A,B:integer;RES:integer;);
begin
while a<>b do
  begin
  if a>b then
    a:=a - b
  else
    b:=b - a;
  end;
res:=a;
end;

Блоги программистов
Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(шестибитный асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .	Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .
Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .	Angular vs React vs Vue.js BasicMan 03.01.2025 О, друзья-разработчики и просто любопытные читатели! Сегодня мы отправимся в увлекательное путешествие по миру фронтенд-разработки, и первой остановкой станет Angular – этакий строгий немецкий. . .

@ander2014638 2 / 2 / 0 Регистрация: 16.10.2017 Сообщений: 152
		1
	Найдите наименьшее общее кратное трёх чисел 12.11.2017, 19:13. Показов 5119. Ответов 9 Метки нет (Все метки) даны 3 натуральных числа . Найдите наименьшее общее кратное этих чисел . Вычислите наибольшего общего делителя двух чисел оформить в виде процедуры пользователя . 0

@ander2014638 2 / 2 / 0 Регистрация: 16.10.2017 Сообщений: 152
	12.11.2017, 19:34 [ТС]	3
	но хотелось что бы кто нибудь всю программу скинул))) 0

@ander2014638 2 / 2 / 0 Регистрация: 16.10.2017 Сообщений: 152
	12.11.2017, 19:55 [ТС]	5
	не пашет она 0

@Ivandur 694 / 5807 / 265 Регистрация: 11.08.2016 Сообщений: 3,577
	12.11.2017, 20:14	6
	А как не пашет, не компиляется, или вылетает после запуска, или выдаёт чегой-то не того? А то я не отлаживал, так что могут быть очепятки и ашыпки. 0

@ander2014638 2 / 2 / 0 Регистрация: 16.10.2017 Сообщений: 152
	12.11.2017, 20:44 [ТС]	7
	нельзя преобразовать реал к интеджер в процедуре ошибка 0

@Ivandur 694 / 5807 / 265 Регистрация: 11.08.2016 Сообщений: 3,577
	12.11.2017, 22:00	8
	А, точно. надо заменить все / на div. И пробелы не забыть. 0

@ander2014638 2 / 2 / 0 Регистрация: 16.10.2017 Сообщений: 152
	12.11.2017, 23:12 [ТС]	9
	а там тогда проблема в делении на ноль 0

	13.11.2017, 08:15

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

Решение