Question

Напишите программу для вычисления силы тока, текущего через цепь из двух резисторов с сопротивлениями R1 и R2, соединённых последовательно.

Answer 1

program p1;varI,U,R1,R2:integer;beginreadln(U,R1,R2);write( I=U/(R1+R2));writeln('I=', I=U/(R1+R2));end.

Answer 2

По закону Ома для участка цепи
$\displaystyle I= \frac{U}{R}, \quad R=R_1+R_2, \quad \boxed{I= \frac{U}{R_1+R_2} }$

PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var U:=ReadReal('U=');
  var (r1,r2):=ReadReal2('R1,R2=');
  Writeln('I=',U/(r1+r2))
end.

Пример
U= 12
R1,R2= 10 6.5
I=0.727272727272727