Розв’язок задачі з Абрамова №9

Всі умови | Умова: Три опори R1, R2, R3 з'єднані паралельно. Знайти опір з'єднання. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №9)

program Pr9;
var
   r1, r2, r3 : integer;
   r : real;
begin
   readln(r1, r2, r3);
   r := r1 * r2 * r3 / (r1 * r2 + r1 * r3 + r2 * r3);
   writeln('R = ', r:10:2);
   readln;
end.