сервис вопросов и ответовнапишите функцию ,которая вычисляет наибольший общий делитель двух чисел
10-11 класс|
|
Slavon1009
08 дек. 2015 г., 12:07:37 (8 лет назад)
LLIKOJlA1FIGNYA11
08 дек. 2015 г., 14:12:18 (8 лет назад)
Function NOD(a, b: Integer): Integer;
Var tmp, r: Integer;
Begin
If b > a Then
Begin
tmp := a;
a := b;
b := tmp;
End;
tmp := a;
While tmp > 0 Do
Begin
Result := tmp;
tmp := tmp - b;
End;
End;
Пример программы с использованием данной функции:
Ответить
Другие вопросы из категории
Читайте также
Для нахождения наибольшего общего делителя двух целых положительных чисел можно применить алгоритм Евклида. Он заключается в следующем: пока
числа не равны, большее число заменяется разностью этих чисел. Полученное в результате число и есть наибольший общий делитель. Какие элементы, пронумерованные от 1 до 5, нужно вставить в блок-схему на места, обозначенные буквами от А до Д, чтобы получившаяся блок-схема соответствовала алгоритму Евклида?
Напишите программу, которая вычисляет НОД двух чисел. Используйте функцию.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
1) Составить функцию, которая определяет наибольшее из трех чисел и привести пример ее использования. Пример: Введите три числа:
28 15 10
Наибольшее число: 28
2)Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.
Пример:
Введите число:
100
Сумма = 500
Буду очень признателен за помощь.
помогите, пожаалуйста! Даны натуральные числа A и B. Найти их наименьшее общее кратное, определив функцию для расчета наибольшего общего
делителя двух натуральных чисел, используя алгоритм Евклида.
Вы находитесь на странице вопроса "напишите функцию ,которая вычисляет наибольший общий делитель двух чисел", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.