Срочно!! Паскаль! Напишите пожалуйста программу для получения общих делителей двух...

Question

Срочно!! Паскаль! Напишите пожалуйста программу для получения общих делителей двух заданных натуральных чисел

Answer 1

Var
    n, i, d1, d2: integer;

begin
    readln(d1, d2);
    n := d1;
    if d1 > d2 then n := d2;
    
    for i := 1 to n do
        if (d1 mod i = 0) and (d2 mod i = 0) then
            write(i, ' ');
end.