Написать программу в паскале три сопротивления r1, r2 и r3соединены параллельно. найти сопротивление соединения r0.

Program begin_20; var r1,r2,r3,r0: real; begin writeln('введите сопротивление r1'); readln(r1); writeln('введите сопротивление r2'); readln(r2); writeln('введите сопротивление r3'); readln(r3); r0: =1/(1/r1+1/r2+1/r3); writeln('общее сопротивление r0',r0: 4: 4); readln; end.

Const   n = 40; var   s,i,ind,k1,k2: integer;   mas: array[1..n] of integer; begin   s : = 0;   for i: =1 to n do s : = s+ mas[i];   writeln ('сумма элементов массива: ',s);     s : = 1;   for i: =1 to n do s : = s * mas[i];   writeln ('произведение элементов массива: ',s);     s : = 0;   for i: =1 to n do s : = s + mas[i]*mas[i];   writeln ('сумма квадратов элементов массива: ',s);   s : = 0;   for i: =1 to 6 do s : = s+ mas[i];   writeln ('сумма первых 6 элементов массива: ',s);     ind: =0;   repeat       writeln('введите к1: '); read(k1);       writeln('введите к2: '); read(k2);       if (k2> k1) then ind : = 1;   until (ind=1);     s : = 0;   for i: =k1 to k2 do s : = s+ mas[i];   writeln ('сумма элементов массива с k1-го по k2-й: ',s);   end.

Для решения примера вспоминаем, что при переходе от шестнадцатиричной системы счисления к двоичной достаточно заменить каждую шестнадцатиричную цифру четырьмя двоичными (тетрадой). предлагаемое в условии число представляет собой десятичную дробь, т.е. имеет целую и дробную части. для целой части незначащими будут левые нули и мы будем искать их в первой тетраде. для дробной части незначащие нули - последние и мы будем их искать в последней тетраде. первая тетрада - представление 1(16)=0001(2). левые три нуля незначащие и их удаляем, остается 1. последняя тетрада - представление е(16)=1110(2). тут один незначащий ноль - правый, остается 111.. остальные тетрады переписываем без изменения. 12ас,6е(16)=1 0010 1010 1100 , 0110 111 (2) считаем количество нулей в записи: 9. это и есть ответ.