program ChainResistancer;
{
	Задача:
	- 61 из "Turbo Pascal в задачах и примерах"
	- автор сборника Никита Культин
	Решение:
	- автор Дмитрий Кузнецов
    - цена $108.00
}
var
	r0, r1, r2			:real;
 
begin
 
writeln('Вычисление сопротивления электрической цепи');
writeln('при параллельном соединении элементов.');
writeln('Введите исходные данные :');
 
writeln('Величина #1 (Ом) -> ');
readln(r1);
 
writeln('Величина #2 (Ом) -> ');
readln(r2);
 
r0 := r1 * r2 / (r1 + r2);
 
writeln('Сопротивление цепи : ', r0:4:2, ' Ом.')
 
end.
 

cHJvZ3JhbSBDaGFpblJlc2lzdGFuY2VyOwp7CgnQl9Cw0LTQsNGH0LA6CgktIDYxINC40LcgIlR1cmJvIFBhc2NhbCDQsiDQt9Cw0LTQsNGH0LDRhSDQuCDQv9GA0LjQvNC10YDQsNGFIgoJLSDQsNCy0YLQvtGAINGB0LHQvtGA0L3QuNC60LAg0J3QuNC60LjRgtCwINCa0YPQu9GM0YLQuNC9CgnQoNC10YjQtdC90LjQtToKCS0g0LDQstGC0L7RgCDQlNC80LjRgtGA0LjQuSDQmtGD0LfQvdC10YbQvtCyCiAgICAtINGG0LXQvdCwICQxMDguMDAKfQp2YXIKCXIwLCByMSwgcjIJCQk6cmVhbDsKCmJlZ2luCgp3cml0ZWxuKCfQktGL0YfQuNGB0LvQtdC90LjQtSDRgdC+0L/RgNC+0YLQuNCy0LvQtdC90LjRjyDRjdC70LXQutGC0YDQuNGH0LXRgdC60L7QuSDRhtC10L/QuCcpOwp3cml0ZWxuKCfQv9GA0Lgg0L/QsNGA0LDQu9C70LXQu9GM0L3QvtC8INGB0L7QtdC00LjQvdC10L3QuNC4INGN0LvQtdC80LXQvdGC0L7Qsi4nKTsKd3JpdGVsbign0JLQstC10LTQuNGC0LUg0LjRgdGF0L7QtNC90YvQtSDQtNCw0L3QvdGL0LUgOicpOwoKd3JpdGVsbign0JLQtdC70LjRh9C40L3QsCAjMSAo0J7QvCkgLT4gJyk7CnJlYWRsbihyMSk7Cgp3cml0ZWxuKCfQktC10LvQuNGH0LjQvdCwICMyICjQntC8KSAtPiAnKTsKcmVhZGxuKHIyKTsKCnIwIDo9IHIxICogcjIgLyAocjEgKyByMik7Cgp3cml0ZWxuKCfQodC+0L/RgNC+0YLQuNCy0LvQtdC90LjQtSDRhtC10L/QuCA6ICcsIHIwOjQ6MiwgJyDQntC8LicpCgplbmQuCg==

MTUKMjAK

15
20