Три сопротивления R1, R2 и R3 соединены параллельно. Найти сопротивление соединения R0.
Решение:
Program begin_8; 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.