Răspuns :
Răspuns:
program cmmdcPerechi;
var a,b,r:integer;
f:text;
begin
assign(f,'in.txt'); reset(f);
while (not eof(f)) do
begin
readln(f,a,b);
r:= a mod b;
while r <> 0 do
begin
a:=b;
b:=r;
r:=a mod b;
end;
writeln(b);
end;
writeln;
close(f);
end.
Explicație:
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.