Question

Tìm UCLN bằng thuật toán Euclid (Lập trình bằng Pascal)

Answer 1

pascal

program UCLN_Euclid;

 

function gcd(a, b: Integer): Integer;

begin

  if b = 0 then

    gcd := a

  else

    gcd := gcd(b, a mod b);

end;

 

var

  num1, num2: Integer;

  result: Integer;

  

begin

  writeln('Nhập số thứ nhất: ');

  readln(num1);

  

  writeln('Nhập số thứ hai: ');

  readln(num2);

  

  result := gcd(num1, num2);

  

  writeln('UCLN của ', num1, ' và ', num2, ' là ', result);

  

end.