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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!