Question

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

(Паскаль)

Answer 1

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.