Sa se afiseze toti divizorii comuni a doua numere
Răspunsuri la întrebare
Răspuns de
0
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.
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.
Alte întrebări interesante
Limba română,
8 ani în urmă
Informatică,
8 ani în urmă
Alte limbi străine,
8 ani în urmă
Matematică,
9 ani în urmă
Engleza,
9 ani în urmă
Matematică,
9 ani în urmă
Limba română,
9 ani în urmă