Var b,t,w:real; v:integer;
begin
write(рабочая ширина захвата агрегата, м = );
readln(b);
write(коэффициент использования времени смены = );
readln(t);
writeln(Производительность машинно-тракторного агрегата:);
for v:=3 to 12 do
writeln(v:3, ,0.1*b*v*t:4:1);
end.
Пример:
рабочая ширина захвата агрегата, м = 5
коэффициент использования времени смены = 0.8
Производительность машинно-тракторного агрегата:
3 1.2
4 1.6
5 2.0
6 2.4
7 2.8
8 3.2
9 3.6
10 4.0
11 4.4
12 4.8