Question

Выполните на компьютере программу Evklid. Протестируйте ее на значениях М= 32, N = 24; М = 696, N = 234.

Answer 1

                                            PascalABC.NET

begin

 var (n,m) := ReadInteger2;

 While M <> N do begin

   if M > N then

       M-=N

     else

       N-=M;

  end;

m.Println;

end.

M = 32; N = 24: Ответ 8;

M = 696; N = 234: Ответ 6.