Question

(În pascal)

De alcătuit un program care ca va afișa dacă o fracție este reductibilă, ireductibilă, subunitară. ​.

Answer 1

Răspuns:

 var

   numarator, numitor, i: Word;

   reductibila: Boolean;

begin

 Write('Numărător: ');

 ReadLn(numarator);

 Write('Numitor: ');

 ReadLn(numitor);

 reductibila := False;

 for i := 2 to numarator do

   if (numarator mod i = 0) and (numitor mod i = 0) then begin

     reductibila := True;

     Break;

   end;

 if reductibila then

   WriteLn('Fracția este reductibilă')

 else

   WriteLn('Fracția este ireductibilă');

 if numarator < numitor then

   WriteLn('Fracția este subunitară')

 else if numarator > numitor then

   WriteLn('Fracția este supraunitară')

 else

   WriteLn('Fracția este echiunitară');

end.