Question

Se citesc 2 nr. a,b reprezentand numaratorul si numitorul unei fractii.Sa se simplifice fractia afisandu-se rezultatul.(pascal)

Answer 1

program simplificare_fractie;

var a, b, x,y: integer;

begin

 write('a='); read(a);

 write('b='); read(b);

 x:=a;  y:=b;

 while (x<>y) do

   begin

     if x>y then x:=x-y

     else y:=y-x;

   end;

 writeln('rezultatele simplificarii:');

 write(a,'/',b,'=');

 a:=a div x;  b:=b div x;

 writeln(a,'/',b);

end.