Question

In fisierul text in.txt se afla pe fiecare linie cate doua numere naturale care au cel putin o cifra si cel mult 9 cifre. Scrieti in Pascal un program care afiseaza pentru fiecare pereche de numere cel mai mare divizor comun al lor.

Answer 1

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: