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

Question

Информатика

Евстратий

28 июня, 14:17

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

+2

Ответы (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)