Задать вопрос
9 апреля, 19:22

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

+2
Ответы (1)
  1. 9 апреля, 20:42
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Рассчитать сопротивление цепи при последовательном и параллельном соединении участка цепи по выбору пользователя. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы