Răspuns:
var
A, B, x, y, N: integer;
begin
writeln('Enter A si B:');
readln(A, B);
x := A;
y := B;
write('Rezultat: CMMMC(', A, ', ', B, ') = ');
while A <> B do
if A > B then A := A - B
else B := B - A;
N := x * (y div A);
writeln(' ', N)
end.
Functiei:
var
x, y: integer;
function CC(x, y: integer): integer;
begin
if x<>0 then CC:=CC(y mod x, x)
else CC:=y;
end;
function CCD(x, y: integer): integer;
begin
CCD:=(x div CC(x,y))*y;
end;
begin
read(x, y);
write(CCD(x, y));
end.
