Найдите ошибки в программе(паскаль)
Program zadacha
Var
v1, t1, v2, t2, v: real;
begin ;
Writeln (‘введите значения v1, t1, v2,t2’);
Readln (v1, t1, v2, t2);
t = (v1*t1+v2*t2)/(v1+v2);
Writeln (T смеси = , t);
end
Program zadacha
Var
v1, t1, v2, t2, v: real;
begin ;
Writeln (‘введите значения v1, t1, v2,t2’);
Readln (v1, t1, v2, t2);
t = (v1*t1+v2*t2)/(v1+v2);
Writeln (T смеси = , t);
end
More Questions From This User See All
Answers & Comments
Var t, v1, t1, v2, t2, v: real;
begin ;
Writeln ('введите значения v1, t1, v2, t2');
Readln (v1, t1, v2, t2);
t := (v1*t1+v2*t2)/(v1+v2);
Writeln ('T смеси = ', t);
end.