Срочно!! Паскаль! Напишите пожалуйста программу для получения общих делителей двух заданных натуральных чисел
Срочно!! Паскаль! Напишите пожалуйста программу для получения общих делителей двух заданных натуральных чисел
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы