Дорисовать схему до пяти разрядов

Question

Информатика: Дорисовать схему до пяти разрядов

ivan497 · Accepted Answer

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию! unit ASM; interface   type SF=(integer,integer);   function AddSF(a,b:SF):SF;   function SubSF(a,b:SF):SF;   function MultSF(a,b:SF):SF;   function DivSF(a,b:SF):SF;   implementation     function Gcd(p:SF):integer;   begin     (var a,var b):=p;     a:=abs(a); b:=abs(b);     while b 0 do (a,b):=(b,a mod b);     Result:=a   end;     function ReductSF(p:SF):SF;   begin     var t:=Gcd(p);     if...

MOGZ ответил