Var
r1,r2,r3,U:real;
begin
Write('Введите величины сопротивлений R1, R2, R3: ');
Read(r1,r2,r3);
Write('Введите величину напряжения V: ');
Read(U);
Writeln('Ток через R1 и R2 равен ',U/(r1+r2));
Writeln('Ток через R3 равен ',U/r3)
end.
Пример
Введите величины сопротивлений R1, R2, R3: 130 70 215
Введите величину напряжения V: 220
Ток через R1 и R2 равен 1.1
Ток через R3 равен 1.02325581395349