Var r1,r2,r:real;
begin
write(Введите значение R1: );
readln(r1);
write(Введите значение R2: );
readln(r2);
r:=r1*r2/(r1+r2);
writeln(Общее сопротивление при параллельном включении: ,r)
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.