Код IT
← Каталог

Pascal / Free Pascal — типовые программы — 5.1. НОД (алгоритм Евклида)

Фрагмент из «Pascal / Free Pascal — типовые программы»: 5.1. НОД (алгоритм Евклида).

pascal lab1140 embed URL статья в энциклопедии
Pascal main.pas 
program Gcd;

function Gcd(a, b: integer): integer;
var
  t: integer;
begin
  while b <> 0 do
  begin
    t := a mod b;
    a := b;
    b := t;
  end;
  Gcd := a;
end;

var
  x, y: integer;

begin
  ReadLn(x, y);
  WriteLn(Gcd(x, y));
end.
program Gcd;

function Gcd(a, b: integer): integer;
var
  t: integer;
begin
  while b <> 0 do
  begin
    t := a mod b;
    a := b;
    b := t;
  end;
  Gcd := a;
end;

var
  x, y: integer;

begin
  ReadLn(x, y);
  WriteLn(Gcd(x, y));
end.