Наливаем 4 литра =>7 потом с нова 4=>7 и остается один литр в 4
делаем такие же операции и один литр в 7 литров а потом два раза по 4 литра туда и останется ведре 2 литра
а потом такие же операции как 2 литра переливаем их 7 литров а затем полный 4 литра получается 6
Var
x, y: real;
begin
readln(x);
if x <= 0 then y := 0
else y := x;
writeln(y:3:0);
end.
Я думаю 3
...........................
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