Три сопротивления R1, R2, R3 соединены параллельно. найти сопротивление всей цепи. Через Паскаля

Общее сопротивление трех параллельно включенных резисторов считается по формуле:

R = 1 / (1 / R1 + 1 / R2 + 1 / R3).

Эта формула будет использована в программе:

program resist;

var R: array[1 ... 3] of real;

i:integer;

begin

for i: = 1 to 3 do

begin

write ('R', i, ' = ');

Readln (R[i]);

end;

writeln (R = ', (1 / (1 / R[1] + 1 / R[2] + 1 / R[3]) : 8 : 2),' Ом');

end.