<span>Вчера решал 238 вышло, могу ошибаться..
</span>
Компью́терная анима́ция — вид мультипликации, создаваемый при помощи компьютера.
Частота дискретизации 22.05 кГц = 22050 Гц означает, что в секунду делается 22050 отсчетов уровня звука. Каждый отсчет в одном канале звука кодируется 16 битами, что составляет 16/8 = 2 байта. В стереофайле каналов два, потому на отсчет требуется 2×2 = 4 байта. Секунда звука кодируется 4×22050 = 88200 байтами. А пять секунд потребуют 5×88200 = 441000 байт.
При однобайтной кодировке символ занимает 1 байт, поэтому в документе будет 441 000 символов.
Код и результаты работы на скриншоте. Если я правильно понял, надо посчитать количество людей родившемся в том или ином дне месяца, игнорируя первые числа. Что относительно выводов то вероятность родиться в какой-либо день меньше 31 примерно одинакова. 31 числа - примерно в 2 раза меньше, потому что такой день есть примерно в половине месяцев. Получается, вроде бы, дискретное равномерное распределение. На картинках выглядит похоже.
Var
S:string;
C:char;
i:integer;
Begin
Write('Введите строку: ');
ReadLn(S);
Write('Введите символ: ');
ReadLn(C);
For i:= 1 to S.Length do
if S[i] = C then
Write(i,' ')
End.
Пример:
Введите строку: Дана строка символов. Определить длину строки. Если длина строки <=20, то найти в строке порядковый номер символа *
Введите символ: а
2 4 11 57 76 113