Паралельне сполучення опорів.

Program OpirParalelno;

Var R1,R2,R3:integer;

R:real;

bnegin

Write('R1,R2,R3 = ');

Readln(R1,R2,R3);

R:=R1*R2*R3/(R1*R2+R1*R3+R2*R3);

Writeln('R = ',R:5:2);

end.