Задать вопрос
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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны два числа. Найти их наибольший общий делитель. (Паскаль) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы