Question

Написать программу в Pascal вычисления сопротивления электрической цепи, состоящей из 2-х параллельно соединенных сопротивлений. (Величина первого сопротивления 15 Ом второго сопротивления 20 Ом)

Answer 1

var  r1,r2,r:real;
begin 
write('Введите значение R1: '); 
readln(r1); 
write('Введите значение R2: '); 
readln(r2); 
r:=r1*r2/(r1+r2); 
writeln('Общее сопротивление при параллельном включении: ',r)
end.