Question

Не выходит с выводом

Answer 1

Ответ:

Объяснение:

Program zadacha1;

 Var t1,t2,t:real;

 Begin

   writeln ('время протекания через 1 трубу' );

   readln(t1);

   writeln ('время протекания через 2 трубу' );

   readln(t2);

   t:=1/((1/t1)+(1/t2));

   writeln ('время протекания через 2 трубы ',t);

 end.