Держи в константе количество элементов прогрессии.
C помощью чисел - числовой
с помощью того же алфавита, что и исходный текст - символьный
Побольше обьяснений, а пока напишу так:
var A:integer;
begin
Writeln('Введите температуру, в зимнее время');
Readln(A);
If A>0 then
Writeln('Метеорологическая весна наступала')
else
Writeln('Метеорологическая весна не наступала');
end.
N=16
i=?
N=2^i, 16=2^i,i=4 (бита) (16 –это количество комбинации(вариантов),i-сообщении
о том, что произошел один из возможных вариантов события)
<span>Ответ: 4 бита содержит сообщение</span>
Ответ=9;
2907+193=3100
<span>7 меняем на 8, 8 на 9, 9 на 0, передвигаем, еще раз передвигаем, 9 меняем на 0, 0 на 1, передвигаем и меняем 2 на 3</span>