Консультация № 190545
09.02.2017, 23:05
0.00 руб.
1 1 1
Здравствуйте! У меня возникли сложности с таким вопросом:


Написать программу в паскале.
Прикрепленные файлы:
72b8f108e6bc805bac21d6574d4a41eedc868f80.jpg

Обсуждение

давно
Посетитель
400894
9
10.02.2017, 09:53
общий
11.02.2017, 00:12
это ответ
Здравствуйте, nikita9581!

Вот пример простейшей программы по Вашему вопросу:

[code lang=pascal h=100]Program p190545;
var R1, R2, R3, R: Extended;

Begin
WriteLn('Введите по очереди три сопротивления:');

Write('R1 = '); ReadLn(R1);
Write('R2 = '); ReadLn(R2);
Write('R3 = '); ReadLn(R3);

R := R1 + 1/(1/R2 + 1/R3);
Write('Сопротивление всей схемы R = ', R);
ReadLn;
End.[/code]
Форма ответа