Question

Алгоритмы. информатика выполнить : найти и записать наибольший общий делитель чисел 125 и 75 план: 1) задать 2 числа 2) если числа равны, то взять слабое из них в качестве ответа и остановиться, в противном случае продолжить выполнять алгоритмы 3) определить большее из чисел 4) заменить большее из чисел разностью большего и меньшего из чисел.

Answer 1

Var a, b: integer;
begin readln(a,b);
          while (a<>b) do
          if a>b then a:=a-b
          else b:=b-a;
          writeln('наибольший общий делитель', a);
readln;
end.