23 lines
474 B
Text
23 lines
474 B
Text
$ include "seed7_05.s7i";
|
|
|
|
const func integer: gcd (in var integer: a, in var integer: b) is func
|
|
result
|
|
var integer: gcd is 0;
|
|
local
|
|
var integer: help is 0;
|
|
begin
|
|
while a <> 0 do
|
|
help := b rem a;
|
|
b := a;
|
|
a := help;
|
|
end while;
|
|
gcd := b;
|
|
end func;
|
|
|
|
const func integer: lcm (in integer: a, in integer: b) is
|
|
return a div gcd(a, b) * b;
|
|
|
|
const proc: main is func
|
|
begin
|
|
writeln("lcm(35, 21) = " <& lcm(21, 35));
|
|
end func;
|