Барабан<span>: барабанная дробь, так же символ передачи информации, но уже звуковой. Это происходило в старые времена во время военных баталий, так же при военных построениях и парадах, что происходит и по сегодняшний день, барабанный дробь отбивает такт, под который маршируют солдаты.</span>
Да так как ,один килобайт = 1024 Байта
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;
Формула (оператор) <span>z:=0,98*z; изменится так:
</span> z:=z-x*0,98}
end;
writeln('палка упадет через ', t,' мин.');
end.
Вывод информацию на монитор)