Question

Найдите наибольший общий делитель двух  чисел.  Или для цикла (пока), или для цикла (до) в паскале.

Answer 1

Var a, b, answer: integer;
function gcd(m, n: integer): integer;   
 var modulo: integer;   
begin       
     modulo := m mod n;       
if modulo = 0 then            gcd := n       
      else            gcd := gcd (n, modulo)    end;
begin   
         write('Введите 2 числа: ');    readln(a, b);
    answer := gcd(a, b);   
writeln('Наибольший общий делитель: ', answer);
end.

Answer 2

Для нахождения наибольшего общего делителя двух чисел можно использовать алгоритм Евклида. Этот алгоритм заключается в последовательном вычитании из большего числа меньшего до тех пор, пока не получится два равных числа. Например, чтобы найти НОД для чисел 24 и 36, нужно выполнить следующие шаги:

36 - 24 = 12 24 - 12 = 12

На этом шаге оба числа стали равны 12, поэтому НОД равен 12.

Алгоритм можно реализовать в цикле, например, в цикле пока:

cssCopy code
var a = 24;
var b = 36;
while (a != b) {
  if (a > b) {
    a = a - b;
  } else {
    b = b - a;
  }
}
console.log("НОД равен", a);

Или в цикле до:

cssCopy code
var a = 24;
var b = 36;
var temp;
while (b != 0) {
  temp = a % b;
  a = b;
  b = temp;
}
console.log("НОД равен", a);

В обоих случаях результат будет такой же: НОД равен 12.