Var x, y: integer;
begin
readln(y);
x := 0;
if x>0 then (двоеточие не надо)
writeln(x, y);
end.
1. Удалить файл
2. Закрыть рекламу
3. Проверить комп на вирусы
Не знаю в каком порядке
ну или позвать взрослых
262144 байта/ 1024= 256 кбайт/ 1024=0,25 мбайт
20 Мбайт=20*2^23 бит=5*2^25 бит
32 кГц =32*1000 Г =2^8 *125 Г
24=3*8=3*2^3
-----------------------------------------------------------------------------
20*2^23/(4*32*1000*24)=5*2^25/(125*3*2^13)=2^12/(25*3)=
=4096/75≈54, 7cекунд≈ 1 минута
ответ: 1 минута