Var t1, v1, t2, v2, s1, s2, s, t, v : real;
begin
write('t1 = ');
read(t1);
write('v1 = ');
read(v1);
write('t2 = ');
read(t2);
write('v1 = ');
read(v2);
s1 := v1 * t1;
s2 := v2 * t2;
s := s1 + s2;
t := t1 + t2;
v := s / t;
write('Cp.v = ', v);
end.
Пример работы программы:
t1 = 2
v1 = 5
t2 = 3
v1 = 10
Cp.v = 8