Ответы
Ответ дал:
0
function GCD(a, b: integer): integer;
begin
while b <> 0 do
begin
a := a mod b;
Swap(a, b)
end;
result := a
end;
begin
var (m, n) := ReadInteger2();
var gcd_ := GCD(m, n);
var lcm_ := m * n div gcd_;
for var i := 1 to gcd_ do
Print(lcm_ * i)
end.
Приложения:
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад