WRITE('Введите сопротивление первого проводника: ') READLN(R1) WRITE('Введите сопротивление второго проводника: ') READLN(R2) WRITE('Введите сопротивление третьего проводника: ') READLN(R3);
Rp := 1 / ((1 / R1) + (1 / R2) + (1 / R3));
WRITELN('Общее сопротивление соединения: ', Rp:0:2);
VAR Rp: REAL;
BEGIN
WRITE('Введите сопротивление первого проводника: ')
READLN(R1)
WRITE('Введите сопротивление второго проводника: ')
READLN(R2)
WRITE('Введите сопротивление третьего проводника: ')
READLN(R3);
Rp := 1 / ((1 / R1) + (1 / R2) + (1 / R3));
WRITELN('Общее сопротивление соединения: ', Rp:0:2);
END.