Предмет: Информатика, автор: dfghjk111

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

Ответы

Автор ответа: nelle987
0

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)

Похожие вопросы