3.
Citește n, m;Execută { rest <- n%m; n <- m; m <- rest;}cât-timp m!=0;
Scrie "cmmdc=", n;
4. (afli cel ma mare divizor comun, apoi împarți numerele)
Citește n, m;
x<-n;
y<-m;Execută { rest <- n%m; n <- m; m <- rest;}cât-timp m!=0;x <- x/n;
y <- y/n;
scrie x, "/", y;
5.
Citește n, m;Execută { rest <- n%m; n <- m; m <- rest;}cât-timp m!=0;
dacă m==1 atunci
scrie "Sunt prime între ele"
altfel
scrie "Nu sunt prime între ele"
6. (cmmmc se află prin (a*b) / cmmdc(a,b) )
Citește n, m;
x<-n;
y<-m;Execută { rest <- n%m; n <- m; m <- rest;}cât-timp m!=0;
scrie "cmmmc=", (x*y)/n;
