Написать программу для паскаля. 3 сопротивления r1, r2, r3 соединены параллельно.найти общее сопротивление соденинения. написать(наподобие program *что-то* и дальше т.д)

Program resistance; var r1, r2, r3: real; begin readln(r1, r2, r3); r1 : = 1/r1 + 1/r2 + 1/r3; r1 : = 1/r1; writeln(r1) end.

Var x,y, sum1,sum2: integer; begin     readln(x);     readln(y);     while x< > 0 do  begin          sum1: =sum1 + x mod 10;         x : = x div 10;     end;       while y< > 0 do  begin          sum2: =sum2 + y mod 10;       y : = y div 10;       end;       if sum1> sum2 then writeln('v pervom: ',sum1, ' (vo vtorom ',sum2,')') else writeln('vo vtorom: ',sum2,' (v pervom ',sum1,')'); end.

Вытаскивание из корзины любого из 16 шаров     –     события равновероятные (т.к. все шары разного цвета). поэтому     для     решения         применима       формула       2  ^i   = n.    здесь       n = 16     –     число шаров разного цвета.     решая     уравнение     2^i   =16,     получаем ответ:     i   = 4 бита (2^4=2*2*2*2=16)