Скласти програму Pascal для задачі: Змішали V1 літрів води температури t1 та V2 літрів...

Question

Скласти програму Pascal для задачі:
Змішали V1 літрів води температури t1 та V2 літрів води температури t2. Знайти об'єм та температуру утвореної суміші.

Answer 1

Var v1,t1,v2,t2:real;
begin
  writeln('input V1,t1');
  readln(v1,t1);
  writeln('input V2,t2');
  readln(v2,t2);
  writeln('V = ',v1+v2,' T = ',(T1*V1+T2*V2)/(V1+V2)) ;
end.