Информатика, опубликовано 2018-08-22 21:11:59 by Гость

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

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

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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.