Program Nonenone;
uses crt;
var
n,i:integer;
max,v:real;
yes: string;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
max:=0;
yes:='NO';
writeln('Введите количество машин (не больше 30 - у меня мало памяти!)');
write('N = ');
readln(n);
if n>30 then
writeln('Это слишком много!')
else
begin
writeln('Вводите зарегистрированную скорость каждого автомобиля');
for i:=1 to n do
begin
write(i,'-я машинка: ');
readln (v);
if v >300 then
begin
writeln ('по-моему, твои приборы глючат - так быстро машины не ездят');
writeln ('Это число не будет учтено');
end
else
begin
if v<30 then yes:='YES';
if v>max then max:=v;
end;
end;
writeln();
writeln('Максимальная зарегистрированную скорость ',max);
writeln('Cкорость меньше 30 км/ч? ',yes);
end;
end.
2)
160 кбайт * 1024 байт к байт * 8 бит в байт = 1 310 720 бит
1280 пикс * 960 пикс = 1 310 720 бит / 1 228 800 пикселей = 1,06 ~1 бит на пиксель (меньше бита быть не может).
2^1 = 2-ух цветовая палитра (чёрно-белая) или одно-битовая палитра.
а остаток на всякий ховно пойдет типо формата или сжатия или выделили лишнее (запас или просчёт в большую сторону).
3)
40 мегабайт * 1024 раз * 1024 раз * 8 раз = 335 544 320 бит
30 мегабайт * 1024 раз * 1024 раз * 8 раз = 251 658 240 бит
4 минуты * 60 сек минута = 240 сек
16 кГц * 1000 = 16000 Гц
24 бит на один Гц * 16000 Гц за один сек * 2 стерео * 240 сек = 184 320 000 бит вес музыка.wav, качество PCM
16 бит * 16000 Гц за сек * 2 канала * 240 сек = 122 880 000 бит вес файл
24 * 32000 * 2 стерео канала * 240 = 368 640 000 бит
16 * 32000 * 2 канала стерео (в кажд канале будет 16 * 32000) * 240 = 245760000 бит
последний 4) влезет и ещё место останется, точность до 10 мегабайт это 40 + или - 10.