Задать вопрос
13 февраля, 16:15

Даны два

числа. Найти их наибольший общий делитель.

(Паскаль)

+2
Ответы (1)
  1. 13 февраля, 17:36
    0
    Var n, k, nod:integer;

    begin

    readln (n, k) ;

    if (n > k) then

    begin

    nod:=k;

    end;

    if (n < k) then

    begin

    nod:=n

    end;

    if (n = k) then

    begin

    nod:=n;

    end;

    while (true) do

    begin

    if (k mod nod 0) then nod:=nod-1;

    if (n mod nod 0) then nod:=nod-1;

    if (k mod nod = 0) and (n mod nod = 0) then break;

    end;

    writeln ('Наименьший общий делитель: ', nod) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны два числа. Найти их наибольший общий делитель. (Паскаль) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
Помгите! Программа Паскаль Вопрос 1. Функция служебного слова Var. Вопрос 2. С какими числами можно работать в программе Паскаль? Вопрос 3. Оператор ввода. Как он записывается в Паскаль? Вопрос 4. Функция служебного слова Const. Вопрос 5.
Ответы (1)
Проверить являются ли два введенных числа дружественными. Дружественные числа - пара чисел, каждое из которых равно сумме собственных делителей другого (Делителем числа называется всякий его делитель, отличный от самого числа) Дружественные числа
Ответы (1)
Проверить являются ли два числа a и b взаимно простыми. Два числа называются взаимно простыми, если их наибольший общий делитель равен 1. Протестировать программу для следующих исходных данных a) a=5 b=100 b) a=3 b=100 c) a=11 b=98
Ответы (1)
Помогите сделать задачи в Pascal ABC. 1. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, т. е. квадратный корень из их произведения: (a*b) 1/2 (1/2 это степень). 2. Даны два ненулевых числа.
Ответы (1)