Почти одновременно появились три проекта по созданию микропроцессора: Central Air Data Computer (CADC) в Garrett AiResearch (1968), TMS 1000 в Texas Instruments (1971) и 4004 в Intel (1971).
Program lol;
var a:integer;
begin
for a:=100 downto 1 do
begin
if a mod 3 = 0 then
writeln(a);
end;
<span>end.
P.S.
в строке </span>for a:=100 downto 1 do вместо 100 вставь нужное тебе значение советую меньше 1000 а то долго считает<span>
</span>
<span>Если 33 буквы то на кодирование 1 буквы идет 6 бит, а букв 33,то 33*6=198 бит</span>
Пока первый держи, остальные может завтра допишу. А так, в интернете полно примеров решения.