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.
Как мы знаем, 1 кбайт памяти занимает 1024 байт памяти. А 1 байт, в свою очередь, занимает 8 бит. Зная это, найдем время, за которое файл размером 64 кбайт сможет передать некоторое соединение. Переведем 64 кбайт в байты [1024*64=65536] получим 65536 байт. Теперь переведем скорость передачи файла в байты [2048/8=256] получим 256 байт/сек. Делим 65536 байт на 256 байт/сек. получаем 256 сек. Мы узнали время. Теперь 512 бит переведем в байты [512/8=64] получим 64 байт. 64 байт умножаем на 256 сек. получаем 16384 байт, ответ на задачу. Если требуется написать ответ к килобайтах, переведем 16384 байт в кбайты. 16384 делим на 1024 получаем 16 кбайт. В ответе пишем: 16384 байт либо 16 кбайт, в зависимости от того, что от нас требуют написать.
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.
Делим 65536 байт на 256 байт/сек. получаем 256 сек.
Мы узнали время. Теперь 512 бит переведем в байты [512/8=64] получим 64 байт. 64 байт умножаем на 256 сек. получаем 16384 байт, ответ на задачу.
Если требуется написать ответ к килобайтах, переведем 16384 байт в кбайты.
16384 делим на 1024 получаем 16 кбайт.
В ответе пишем: 16384 байт либо 16 кбайт, в зависимости от того, что от нас требуют написать.