Даны числа a и b найти общие делители P.S. На Паскале
Даны числа 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.
Не нашли ответ?
Похожие вопросы