Объясните как решать,. в программе «: =» обозначает оператор присваивания, знаки «+», «–», «*» и «/» - id167257420201008 от kioppo 08.10.2020 01:06

Question

Информатика: Объясните как решать,. в программе «: =» обозначает оператор присваивания, знаки «+», «–», «*» и «/» – соответственно операции сложения, вычитания, умножения и деления. правила выполнения операций и порядок действий соответствует правилам арифметики. определите значение переменной a после выполнения алгоритма: a : = 30 b : = 2 a : = 2- 24/b b : = a-b/3 в ответе укажите одно целое число – значение переменной a.

kioppo · Accepted Answer

// begin   var L:=new List fraction ; // вынужденное: метод иногда дает дубликаты   (var a0, var an):=(abs(Self.First),abs(Self.Last));   for var p:=1 to a0 do begin     if a0 mod p 0 then continue;     for var q:=1 to an do begin       if an mod q 0 then continue;       var g:=Self.First; (var f, var t):=(g,p);       foreach var k in Self.Skip(1) do begin         var r:=k*t; (f,g,t):=(f*q+r,-g*q+r,t*p);         end;       if f=0 then L.Add((p,q));       if g=0 then L.Add((-p,q))       end     end;...

MOGZ ответил