Var x,y,z: real; t: integer; begin writeln('введите х и у'); readln(x,y); z:=sqrt(sqr(x)-sqr(y)); t:=0; while (z>0,1) do begin t:=t+1; z:=0,98*z; {если 2% от изменяющегося расстояния до пола; если же имеется ввиду 2% от исходного расстояния, то нужно будет ввести новую переменную или присвоить исходное значение z, например х, то есть сразу после z:=sqrt(sqr(x)-sqr(y)); написать x:=z; Формула (оператор) z:=0,98*z; изменится так: z:=z-x*0,98} end; writeln('палка упадет через ', t,' мин.'); end.
t: integer;
begin writeln('введите х и у');
readln(x,y);
z:=sqrt(sqr(x)-sqr(y));
t:=0;
while (z>0,1) do
begin t:=t+1;
z:=0,98*z; {если 2% от изменяющегося расстояния до пола;
если же имеется ввиду 2% от исходного расстояния,
то нужно будет ввести новую переменную
или присвоить исходное значение z, например х,
то есть сразу после z:=sqrt(sqr(x)-sqr(y)); написать x:=z;
Формула (оператор) z:=0,98*z; изменится так:
z:=z-x*0,98}
end;
writeln('палка упадет через ', t,' мин.');
end.
Для каждого груза можешь привести
Данный груз + некая гиря = противовес
1 + 0 = 1
2 + 1 = 3
3 + 0 = 3
4 + 0 = 3+1
5 + 3+1 = 9
6 + 3 = 9
7 + 3 = 9+1
8 + 1 = 9
9 + 0 = 9
10 + 0 = 9+1
11 + 1 = 9+3
12 + 0 = 9+3
13 + 0 = 9+3+1