Question

Помогите пожалуйста. Не получается составить программу (Язык Паскаль) вычисления сопротивления электрической цепи,состоящей из двух последовательно соединенных сопротивлений. (Величина первого сопротивления 15 Ом, второго сопротивления 27,3 Ом)Вот как начал составлять программу. uses crt; var x,y,c:real; begin clrscr; write('Введите 1 сопротивление...'); readln (x); write ('Введите 2 сопротивление...'); readln (y); readln(c); c:=(x*y)/(x*y); writeln('c',c:8:2); readln; End.

Answer 1

Сопротивление при последовательном соединение равно сумме двух сопротивлений

uses crt;

var x,y,c:real;  

begin  

write('Введите 1 сопротивление...');  

readln (x);  

write ('Введите 2 сопротивление...');  

readln (y);  

c:= x + y;  

writeln('Сопротивление ',c);  

End.