Question

Рассчитать сопротивление цепи при последовательном и параллельном соединении участка цепи по выбору пользователя.

Answer 1

Var
   R,Ro:real;
   N:integer;
Begin
WriteLn('1 - параллельное, любые другие цифры - последовательное');
ReadLn(R);
Write('Введите количество проводников: ');ReadLn(N);
WriteLn('Введите сопротивления этих проводников:');
Ro:=0;
if R = 1 then
   For N:= 1 to N do
       Begin
       Read(R);
       Ro:=Ro+1/R;
       End
else
   For N:= 1 to N do
       Begin
       Read(R);
       Ro:=Ro+R;
       End;
WriteLn('Ro = ',Ro);
End.