Question

Написать программу, которая вычисляет сопротивление электрической цепи, состоящей из двух сопротивлений. Сопротивления могут быть соединены последовательно или параллельно.

Answer 1

Program soprotiv; {Название программы} 
var r1, r2:real; {Задаем переменные} 
c:byte; 
begin {Начало программы} 
write ('Введите 1 сопротивление... '); {Вывод сообщения о вводе данных} 
readln (r1); {Ввод данных с клавиатуры} 
write ('Введите 2 сопротивление... '); {Вывод сообщения о вводе данных} 
readln (r2); {Ввод данных с клавиатуры} 
write ('Если соединение параллельное, то нажмите клавишу 1, если соединение последовательное - нажмите 0...'); {Вывод сообщения о вводе данных} 
readln (c); {Ввод данных с клавиатуры} 
if c=1 {условие} 
then writeln ('Сопротивление электрической цепи, соединенной параллельно=',(r1*r2)/(r1+r2)) {Вывод значения, при параллельном соединении} 
else writeln ('Сопротивление электрической цепи, соединенной последовательно=',(r1+r2)); {Вывод значения, при последовательном соединении} 
end. {Конец программы}