Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.