var i,x,y: integer; Begin writeln('Introduceti numerele:'); readln(x,y); writeln('Divizori comuni:'); for i:=1 to MaxInt do if (x mod i=0) and (y mod i=0) then writeln(i); End.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!