Két szám közös osztói? (Pascal)

Legegyszerűbb: indulj el 2-től a kisebbik szám feléig. Képezd az egész osztás maradékát mindkét számból (%), ha mindkét esetben 0 a maradék, akkor közös osztót találtál, írasd ki v. tárol le v. akármi. Aztán jöhet a következő szám.

Még annyit tennék hozzá, hogy azt is nézd meg, hogy a nagyobbik szám osztható-e a kisebbik számmal.

Akkor próbáld máshogy!

Veszed a két szám (a és b) közül a nagyobbikat ez lesz az m változó. Írsz egy ciklust ami végigmegy 2 től m-ig, ebben megnézed, hogy mindkét szám osztható-e az i ciklusváltozóval. Ez lesz a feltétel "(a mod i=0) and (b mod i=0)" ekkor kiírod i-t, ez azt jelenti hogy az a i-vel vett maradéka az osztás után 0 és a b i-vel vett maradéka 0.