Предмет: Информатика,
автор: dfghjk111
Известно сопротивление каждого из элементов электрической цепи. Все элементы соединены параллельно. Определить общее сопротивление элементов. pascal pozhaluista srochno!!!
Ответы
Автор ответа:
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)
Похожие вопросы
Предмет: Обществознание,
автор: volk1726
Предмет: Английский язык,
автор: Sergei1251
Предмет: Химия,
автор: karinakadyrova10
Предмет: История,
автор: Богатая
Предмет: Химия,
автор: korneliya