ВВЕРХ
ВНИЗ

Наибольший общий делитель (НОД)






Представляю вашему вниманию еще одну часто необходимую практическую арифметическую задачу — нахождение наибольшего общего делителя двух чисел (НОД). Код очень простой и не нуждается в объяснениях.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
var
  A, B: integer;

begin
  writeln('Введите целые неотрицательные числа A и B:');
  readln(A, B);
  write('Результат: НОД(', A, ', ', B, ') = ');
  { Сначала находим НОД(А,В): }
  while A <> B do
    if A > B then A := A - B
    else B := B - A;
  { Выводим результат: }
  writeln(' ', A);
  readln
end.


Яндекс.Метрика