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

Question

Информатика

Милана

9 апреля, 19:22

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

+2

Ответы (1)

Знаешь ответ?

Анастасия · 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.