fork download
  1. program ResistanceOfChain;
  2. {
  3. Задача:
  4. - 62 из "Turbo Pascal в задачах и примерах"
  5. - автор сборника Никита Культин
  6. Решение:
  7. - автор Дмитрий Кузнецов
  8.   - цена $108.00
  9. }
  10. var
  11. r1, r2, r0 :real;
  12.  
  13. begin
  14.  
  15. writeln('Вычисление сопротивления электрической цепи.');
  16. writeln('Введите исходные данные:');
  17. writeln('Первое сопротивление (Ом) -> ');
  18. readln(r1);
  19.  
  20. writeln('Второе сопротивление (Ом) -> ');
  21. readln(r2);
  22.  
  23. r0 := r1 + r2;
  24.  
  25. writeln('Сопротивление цепи (последовательно) : ', r0:5:2 ,' Ом.');
  26.  
  27. end.
  28.  
Success #stdin #stdout 0s 5276KB
stdin
72.89
23.11
stdout
Вычисление сопротивления электрической цепи.
Введите исходные данные:
Первое сопротивление (Ом) -> 
Второе сопротивление (Ом) -> 
Сопротивление цепи (последовательно) : 96.00 Ом.