program ResistanceOfChain;
{
Задача:
- 62 из "Turbo Pascal в задачах и примерах"
- автор сборника Никита Культин
Решение:
- автор Дмитрий Кузнецов
- цена $108.00
}
var
r1, r2, r0 : real ;
begin
writeln ( 'Вычисление сопротивления электрической цепи.' ) ;
writeln ( 'Введите исходные данные:' ) ;
writeln ( 'Первое сопротивление (Ом) -> ' ) ;
readln ( r1) ;
writeln ( 'Второе сопротивление (Ом) -> ' ) ;
readln ( r2) ;
r0 : = r1 + r2;
writeln ( 'Сопротивление цепи (последовательно) : ' , r0: 5 : 2 , ' Ом.' ) ;
end .
cHJvZ3JhbSBSZXNpc3RhbmNlT2ZDaGFpbjsKewoJ0JfQsNC00LDRh9CwOgoJLSA2MiDQuNC3ICJUdXJibyBQYXNjYWwg0LIg0LfQsNC00LDRh9Cw0YUg0Lgg0L/RgNC40LzQtdGA0LDRhSIKCS0g0LDQstGC0L7RgCDRgdCx0L7RgNC90LjQutCwINCd0LjQutC40YLQsCDQmtGD0LvRjNGC0LjQvQoJ0KDQtdGI0LXQvdC40LU6CgktINCw0LLRgtC+0YAg0JTQvNC40YLRgNC40Lkg0JrRg9C30L3QtdGG0L7QsgogICAgLSDRhtC10L3QsCAkMTA4LjAwCn0KdmFyCglyMSwgcjIsIHIwCQk6cmVhbDsKCQpiZWdpbgoKd3JpdGVsbign0JLRi9GH0LjRgdC70LXQvdC40LUg0YHQvtC/0YDQvtGC0LjQstC70LXQvdC40Y8g0Y3Qu9C10LrRgtGA0LjRh9C10YHQutC+0Lkg0YbQtdC/0LguJyk7CndyaXRlbG4oJ9CS0LLQtdC00LjRgtC1INC40YHRhdC+0LTQvdGL0LUg0LTQsNC90L3Ri9C1OicpOwp3cml0ZWxuKCfQn9C10YDQstC+0LUg0YHQvtC/0YDQvtGC0LjQstC70LXQvdC40LUgKNCe0LwpIC0+ICcpOwpyZWFkbG4ocjEpOwoKd3JpdGVsbign0JLRgtC+0YDQvtC1INGB0L7Qv9GA0L7RgtC40LLQu9C10L3QuNC1ICjQntC8KSAtPiAnKTsKcmVhZGxuKHIyKTsKCnIwIDo9IHIxICsgcjI7Cgp3cml0ZWxuKCfQodC+0L/RgNC+0YLQuNCy0LvQtdC90LjQtSDRhtC10L/QuCAo0L/QvtGB0LvQtdC00L7QstCw0YLQtdC70YzQvdC+KSA6ICcsIHIwOjU6MiAsJyDQntC8LicpOwoKZW5kLgo=