Символ-это набор команд состоящих из единиц и нулей,любое слово вводимое тобой или выведонное тебе состоит из этих последовательностей. Например символ I (Я) зашифрован так 0100 1001 <-- 8 этих битов образуют 1 символ,называемым байтом,поэтому любой текст,изображение,видео(там немного другая схема действует),все это всего лишь грандиозный набор команд,разговоры по телефону тоже кодируются из вибрации в набор импульсов и на обратном выходе опять преобразуются в нам всем привычные слова.Любые механизмы,и даже мы с Вами можем передавать информацию,в том числе Азбукой Морзе,даже несколько последовательно сформулированных щелчков пальцев несут в себе информацию,главное ее понять,расшифровать и преобразовать,в видео,аудио,текст,фотографию.
var i,j,k,m: integer; s: string; begin k:=0; for i:=1 to 1000000 do begin s:=IntToStr(i); m:=0; for j:=1 to (length(s) div 2) do if s[j]<>s[length(s)-j+1] then m:=1; if m=0 then begin inc(k); continue; end; m:=pos('0',s); if m>0 then begin inc(k); continue; end; m:=1; for j:=2 to round(sqrt(i)) do if i mod j = 0 then begin m:=0; break; end; if m=1 then inc(k); end; k:=1000000-k; writeln('осталось чисел: ',k); end.
