ИНФОРМАТИКА 9 КЛАСС div, mod ПАСКАЛЬ - id1060204820210529 от derevnina450 29.05.2021 08:42

Question

Информатика: ИНФОРМАТИКА 9 КЛАСС div, mod ПАСКАЛЬ​

derevnina450 · 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...

ИНФОРМАТИКА 9 КЛАССdiv, mod ПАСКАЛЬ​

MOGZ ответил

ИНФОРМАТИКА 9 КЛАСС
div, mod ПАСКАЛЬ