Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Ernest36
0 / 0 / 0
Регистрация: 06.10.2014
Сообщений: 1
1

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

09.10.2014, 13:52. Просмотров 1000. Ответов 1
Метки нет (Все метки)

"Реализовать программу, вычисляющую наименьшее общее кратное двух заданных чисел. Использовать алгоритм Евклида. Вычисления продолжаются до тех пор, пока не будет получена команда выхода."

Нужно срочно выполнить эту лабораторную, комментарии в коде необходимы.
Спасите, пожалуйста :С
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2014, 13:52
Ответы с готовыми решениями:

Алгоритм: Найдите наименьшее общее кратное (НОК) заданных чисел
Найдите наименьшее общее кратное натуральных чисел k,m,n

Проект для определения во сколько раз произведение двух заданных целых чисел больше суммы этих чисел
1. Создайте проект для определения во сколько раз произведение двух заданных...

Если сумма трех попарно различных вещественных чисел Х,Y,Z меньше единицы, то наименьшее из трех чисел заменить полу суммой двух других
Если сумма трех попарно различных вещественных чисел Х,Y,Z меньше единицы, то...

Найти среднее арифметическое двух заданных чисел
Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2. в delphi!!

Получить цифры числа, равного сумме двух заданных чисел
2) Даны цифры двух двузначных чисел, записываемых в виде а2а1 и b2b2 где а1 и...

1
Puporev
Модератор
55009 / 42304 / 29213
Регистрация: 18.05.2008
Сообщений: 99,947
09.10.2014, 14:07 2
Лучший ответ Сообщение было отмечено как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a,b:integer;
begin
writeln('Vvod par chisel, vyhod 0 0');
repeat
readln(a,b);//вводим 2 натуральных числа типа 16 64
repeat
if a>b then a:=a mod b //если a>b берем остаток от a/b
else b:=b mod a; //иначе берем остаток от b/a
until (a=0)or(b=0);//если одно из них=0, конец
writeln('nod=',a+b);//выводим нод
until(a=0)and(b=0)//2 ноля=выход
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2014, 14:07

Верно ли, что при делении числа а на число b получается остаток, равный одному из двух заданных чисел
Pomogite reshit zhadachu,please!Zaranee spasibo! Oпределить, верно ли, что при...

Проверить истинность высказывания: "Хотя бы одно из двух заданных чисел нечетное"
Даны два целых числа: A и B. Проверить истинность высказывания: "Хотя бы одно...

Создать текстовой файл, содержащий изображение умножения "столбиком" двух заданных натуральных чисел
Создать текстовой файл, содержащий изображение умножения " столбиком " двух...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru