Электрическая цепь составлена изэлектрическая цепь составлена из нескольких сопротивлений. определите сопротивление между узлами а и б. нужно написать программу в паскале. между а и б сопротивление r1, r(общее r2, r3), r4 соединены последовательно, а r2 и r3 параллельно. т.е. общее сопротивление равно.. r=r1+(r2*r3)/(r2+r3)+r4 на основании этой формулы нужна программа.
r, r1, r2, r3, r4 : real;
begin
write ('R1 = '); readln (r1);
write ('R2 = '); readln (r2);
write ('R3 = '); readln (r3);
write ('R4 = '); readln (r4);
r := r1 + (r2 * r3) / (r2 + r3) + r4;
writeln ('R = ', r);
end.