Pascal ! Теорема Евклида !

[valerka92]

Описать функцию NOD2(A, B) целого типа , находящую наибольшии общии делитель (НОД) двух целых положительных чисел
A и B используя алгоритм Евклида

НОД (A , B) =НОД (B , A mod B) если B неравно 0 ;
NOD (A , 0) = A ;
C помощью этой функции найти наибольшие общие делители пар (A , B), (A , C) , (A , D) ,
Если даны чмсла A , B, C ,D

[RUSt88]

выполнб в кратчайшие сроки, обращайтесь

[Grag]

Задача вполне решаема, обращайся!
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[Филантроп]

function nod( a, b: integer): integer; 
  begin
   while (a <> 0) and (b <> 0) do begin
     if a >= b then 
       a:= a mod b 
     else 
       b:= b mod a;
   end;
   nod:= a + b;
  end;