Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
24л 13л 11л 5л - емкость бочек
далее пойдут количества воды в каждой из бочек после каждого перливания
0 13 11 0
0 13 6 5
6 13 0 5
6 13 5 0
6 8 5 5
0 8 11 5
8 0 11 5
8 11 0 5
8 13 3 0
8 8 3 5
<u>8 8 8 0</u>
итак, у нас есть файл, сжатый в два раза.
значит объем оригинального кода = 500кб * 2 = 1000кб
1000 кб = 1024000 байт или 8192000 бит (умножили на 8)
определим сколько бит приходитс на секунду записи:
8192000 бит / 30 сек = примерно 273066 бит в секунду. Известно что один отсчет занимает 16 бит, узнаем число отсчетов (частоту дискретизации)
273066/16 = примерно 17066 отсчетов в секунду.
Ответ: примерно 17.1 кГц
<span>На сравнении программных кодов с известными вирусами</span>