Известно сопротивление каждого из элементов электрической цепи. Все элементы соединены параллельно. Определить общее сопротивление элементов. pascal pozhaluista srochno!

Question

Информатика

Муня

5 августа, 22:45

Известно сопротивление каждого из элементов электрической цепи. Все элементы соединены параллельно. Определить общее сопротивление элементов. pascal pozhaluista srochno!

+3

Ответы (1)

Знаете ответ на вопрос?

Сибилла · Answer 1

var cond, res:real;

begin

cond:=0;

readln (res) ;

while (res>0) do

begin

cond:=cond + 1/res;

readln (res) ;

end;

writeln (1/cond)

end.

(Считаю, что с клавиатуры вводятся сопротивления, признак конца ввода - 0)