Даны числа a и b найти общие делители

P. S. На Паскале

Question

Майя

17 мая, 23:04

+1

Ответы (1)

Знаете ответ на вопрос?

Всеволодушка · Answer 1

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.

Даны числа a и b найти общие делителиP. S. На Паскале