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

Question

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

Answer 1

Нахождение наибольшего общего делителя, если я правильно понял?

program Evkild;
var
  a, b: integer;
begin
  write('Введите a: ');
  readln(a);
  write('Введите b: ');
  readln(b);
  while (a <> 0) and (b <> 0) do
  if a >= b then
    a := a mod b
  else
    b := b mod a;
  writeln('Наибольший общий делитель = ', a + b);
  readln;
end.