Fernando, Вообще плёвые задачки:
Code
Uses CRT;
Var R1, R2, R: Real;
Begin
Writeln('Вычисление сопротивления элетрической цепи.');
Writeln('Введите исходные данные:');
Write('Величина сопротивления первого резистора (Ом): ');
Readln(R1);
Write('Величина сопротивления второго резистора (Ом): ');
Readln(R2);
R := R1 + R2;
Writeln('Общее сопротивление электрической цепи равно ', R:0:2,' Ом');
Writeln('Для завершения работы нажмите любую клавишу...');
Readkey;
End.
Вторая - аналогично. Только по закону Ома I := U/R;
