Pascal. Линейные алгоритмы. Задача 5

Три сопротивления R1, R2 и R3 соединены параллельно. Найти сопротивление соединения R0.

Решение:

Program begin_8;

var r1,r2,r3,r0:real;

begin

  writeln('введите сопротивление R1');

  readln(r1);

  writeln('введите сопротивление R2');

  readln(r2);

  writeln('введите сопротивление R3');

  readln(r3);

  r0:=1/(1/r1+1/r2+1/r3);

  writeln('общее сопротивление R0',r0:4:4);

  Readln;

End.