Написать программу в Pascal вычисления сопротивления электрической цепи, состоящей из 2-х параллельно соединенных сопротивлений. (Величина первого сопротивления 15 Ом второго сопротивления 20 Ом)
More Questions From This User See All
Answers & Comments
Verified answer
varR1, R2, R: real;
begin
R1 := 15; //readln(R1);
R2 := 20; //readln(R2);
R := 1/R1 + 1/R2;
R := 1 / R;
writeln('Общее сопротивление проводников (', R1, ' и ', R2, ' Ом): ', R:2:6, ' Ом');
end.