Есть набор имен, зашифрованных неизвестным расшифруйте имя цэяс. антон ясмрс михаил тцйяцу евгений ъэьъсцх - id492486320210104 от ramazanovmagomed 04.01.2021 04:08

Question

Информатика: Есть набор имен, зашифрованных неизвестным расшифруйте имя цэяс. антон ясмрс михаил тцйяцу евгений ъэьъсцх илья цуга

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