Var x:integer;
begin
for x:=5 to 14 do begin
x:=x*(x+1)
end;
end.
PASCAL не уверен что работает но смысл такой
А) чёрный цвет 0.0.11(чёрный)
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 31 шт
i = 8 бит
I - ?
Решение:
I = K * i = 31 * 8 бит = 248.0 бит
<span>щлпмб
Здесь сдвиг алфавита равен 1 символу.
</span><span>
ъмрнв
Здесь - уже двум. Надеюсь, ты понял алгоритм))
Каждая буква в слове меняется на следующую в ней по алфавиту через n букв, где n - число шагов сдвига
Для буквы я - следующая буква - а.</span>
Чувак иди c++ учи, pascal уже устарел