Задать вопрос Регистрация
Помочь другим

  • Известно сопротивление каждого из элементов электрической цепи. Все элементы соединены параллельно. Определить общее сопротивление элементов. pascal pozhaluista srochno!!!

Ответы 1

  • var cond,res:real;

     

    begin

       cond:=0;

       readln(res);

       while (res>0) do

       begin

          cond:=cond + 1/res;

          readln(res);

       end;

       writeln(1/cond)

    end.

     

    (Считаю, что с клавиатуры вводятся сопротивления, признак конца ввода - 0)

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years