• Предмет: Информатика
  • Автор: ralifsub02p6m5uu
  • Вопрос задан 2 года назад
< >

Запишите алгоритм Евклида. Найти наибольший общий делитель (НОД) двух целых положительных чисел.

Ответы

Ответ дал: дима1551
0

 function nod( a, b: longint): longint;

 begin

  while (a <> 0) and (b <> 0) do

    if a >= b then

      a:= a mod b

    else

      b:= b mod a;

  nod:= a + b;

 end;

ralifsub02p6m5uu: это на бейсике написанно?
дима1551: паскаль
Похожие вопросы
Математика
1 год назад
Г Миша записал пять различных чисел. Затем он прибавил 2 к некоторым из них, а к остальным прибавил 3. Какое наименьшее количество различных чисел сможет получить Миша? А: 1 Б: 2 В: 3 Г: 4 Д5 = = = =
Русский язык
1 год назад
Помогите пожалуйста!На месте каких цифр должны стоять запятые? Новый сосед щеголял (1) и своими взглядами (2) и своими изысканными манерами (3) и своим позерством (4) и произвел на старого
Русский язык
2 года назад
Сочинение на тему:Кем я хочу быть (Прогромистом) Напишите Пожалуйста дам 20 балов
Окружающий мир
2 года назад
как называется врач который делает узи
Математика
7 лет назад
1) 5x+4 = 8 + 3x 2) 7(m +6 ) - 4 (3-m) = 19 решите,срочно(
Физика
7 лет назад
СРОЧНО!!!!!!!!!! ОЧЕНЬ ПРОШУ ПОМОГИТЕ!!! Розв'язати задачу. Кінь рівномірно везе віз із швидкістю 0,8 м/с, прикладаючи зусилля 400 Н. Яка робота виконується при цьому за 1 год?
Математика
8 лет назад
5,8-2,65/1,4*(3,7-2,2)
Математика
8 лет назад
Помогите пожалуйста : Вычислите .Выразите результат. в килограммах: 72тонн:6-369ц:9 в квадратных метрах: 17000см квадратных+18000см квадратных-50дм квадратных в литрах: (1300дм кубических - 400 дм