Question

Даны числа a и b найти общие делители
P.S. На Паскале

Answer 1

var
 a, b, i: integer;

begin
  readln(a, b);
  for i:=1 to max(a, b) do
    if (a mod i = 0) AND (b mod i = 0) then
      write(i, ' ');
end.