👤

Ajutați-mă, vă rog, să elaborez o funcție în Pascal care calculează cel mai mic multiplu comun al numerelor naturale a, b.

Răspuns :

Se foloseste algoritmul lui Euclid, care arata cam asa:

function CMMDC(a, b)
    while b ≠ 0
       t := b
       b := a mod b
       a := t
    return a

Sau daca nu o vrei integrata intr-o functie, segmentul de cod ar fi cam asa:
read a, b;
while b ≠ 0
   t := b
   b := a mod b
   a := t
write a