Посчитать сопротивление цепи: 1- последовательное (r1+r2). 2 - параллельное...

Question

Посчитать сопротивление цепи: 1- последовательное (r1+r2). 2 - параллельное (r1+r2/(r1+r2))

Answer 1

program el;
Uses crt;
var n,R,R1,R2:real;
begin
writeln('Вычисление сопротивления электрической цепи.');
writeln('Введите исходные данные:');
writeln('Величина первого сопротивления (Ом) -> '); readln(R1);
writeln('Величина второго сопротивления (Ом) -> '); readln(R2);
writeln('Тип соединения (1 - последовательное, 2 - параллельное) -> '); readln(n);
If n=1 then
R:=R1+R2
else R:=R1*R2/(R1+R2);
writeln('');
writeln('Соротивление цепи: ',R);
end.