Ответы
Ответ дал:
2
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, 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.
Аноним:
спасибо огромное
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад