program Bear;
var
N: Real;
begin
Write ('Введите массу медвежонка: ');
ReadLn (N);
WriteLn ('Масса белого медведя = ', N / 0.15:10:3);
ReadLn;
end.
program everyone;
var
N, L, D: Real;
begin
Write ('Введите количество часов: ');
ReadLn (N);
Write ('Введите ширину: ');
ReadLn (L);
D := N * 12 / L;
WriteLn ('Количество ткани = ', D:10:2);
ReadLn;
end.
Объяснение:
по задаче с ситцем: если за 5 минут делается 1 кв.м., то за час сделается 60 / 5 = 12 кв.м.
под количеством ткани, видимо имеется в ввиду длина полотна
длина будет равна: D := N * 12 / L, где
N - часы
L - ширина полотна
Объем файла = 64*64*16 бит = 64*64*16/8 байт = 64*64*2 байт = 64*64*2/1024 Кбайт = 8 Кбайт
2. Размер цифрового моноаудиофайла измеряется по формуле:
A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
44,1 кГц = 44100 Гц
A = 44100*2*16 бит = 44100*2*16 / (8*1024) Кбайт = 172,265625 Кбайт ≈ 172,3 Кбайт
3. Общее количество символов для записи номеров = 20+10=30
Для кодирования одного символа необходимо log(2)30 ≈ 5 бит (2^5=32).
Для записи одного номера требуется 8*5 бит = 40 бит = 40/8 байт = 5 байт
Для хранения 50 номеров потребуется 50*5 байт = 250 байт