Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Три сопротивления R1,R2,R3 соединены параллельно. найти сопротивление всей цепи. Через Паскаля

Ответ оставил Гость

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var r1,r2,r3:real;
  Read(r1,r2,r3);
  Writeln(1/(1/r1+1/r2+1/r3))
end.