Question

напишите программу вычисления наибольшего общего делителя двух целых чисел. а)с оператором repeat б) с оператором while ( в интернете неправильно)помогите пожалуйста

Answer 1

var a,b: integer;

begin

   readln(a,b);

   repeat

      if(a>b) then a:=a-b;

      if(b>a) then b:=b-a;

   until (a<>b); 

   writeln('gcd = ', a);

end.

 

var a,b: integer;

begin

   readln(a,b);

   while (a<>b) do begin

      if(a>b) then a:=a-b;

      if(b>a) then b:=b-a;

   end;

   writeln('gcd = ', a);

end.