Написать программу нахождения наибольшего общего делителя (НОД) двух натуральных чисел — Pascal(Паскаль)

program prim3;
  uses crt;
  var x, y: integer;
begin
  clrscr;
{Вводим два целых неотрицательных числа.}
  writeln('x:=,y: = ');readln(x,y);
  repeat
    if x>y then x:=x mod у else y:=y mod x;
{До тех пор, пока одно из чисел не станет равно нулю.}
  until (x=0) Or (y=0);
{Вывод НОД - без условного оператора, так как одно из чисел равно нулю.}
  writeln('HOД=',x+y));
  readln;
end.

Leave a Comment

+ 3 = 7