Вспомни и запиши как можно больше имен героев и названий предметов из сказок, которые: 1) имеют необычнфй - id2683320210209 от Anna66613 09.02.2021 22:09

Question

Информатика: Вспомни и запиши как можно больше имен героев и названий предметов из сказок, которые: 1) имеют необычнфй рост 2) имеют необычное колличество частей 3) сделаны изнеобычного материала 4) имеют части необычного размера

Anna66613 · 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 ответил