var
str1,str2:string;
c:char;
i:integer;
begin
write('Введите первое слово: ');
readln(str1);
write('Введите второе слово: ');
readln(str2);
i:=1;
while i<=(length(str2) div 2) do // Переворот второй строки.
begin // Строка - массив символов, и как в массиве просто
c:=str2[i]; // меняем элементы местами с использованием
str2[i]:=str2[length(str2)-i+1]; // вс переменной.
str2[length(str2)-i+1]:=c;
i:=i+1;
end;
writeln(pos(str2,str1));
end.
1)
Пользуемся вот этой формулой: I = hit, где
I объем файла,
h - частота дискретизации, h=40кГц = 40 000 Гц
i - минимальное количество бит, i=16
t - длительность звучания файла в секундах, t=3мин = 180с
I = 115200000 бит = 115200000/8 байт = 14400000 байт = 1440000/1024 кБайт = 14062,5 кБайт
2)
Пользуемся теперь этими формулами
I = ki
, где
I - объем изображения,
k - количество пикселей, k = 100*300=30000
i - минимальное количество бит, нужное для кодирования одного пикселя
N - палитра цветов, N = 16384
В какую степень надо возвести 2, чтобы получилось 16384?
Значит, по формуле i = 14
I = 30000*14=420000 бит = 420000/8 байт = 52500 байт = 52500/1024 Кбайт = 51,27 Кбайт
