// PascalABC.NET 3.0, сборка 1073 const s=''; var c:char; p:integer; begin repeat Write('Введите латинскую букву, иной символ завершит работу: '); Readln(c); p:=Pos(c,s); if p>0 then Writeln('Рядом буква "',s[p+1],'"') until p=0 end.
Тестовое решение: Введите латинскую букву, иной символ завершит работу: y Рядом буква "u" Введите латинскую букву, иной символ завершит работу: H Рядом буква "J" Введите латинскую букву, иной символ завершит работу: m Рядом буква "q" Введите латинскую букву, иной символ завершит работу: P Рядом буква "A" Введите латинскую букву, иной символ завершит работу: 5
Символ-это набор команд состоящих из единиц и нулей,любое слово вводимое тобой или выведонное тебе состоит из этих последовательностей. Например символ I (Я) зашифрован так 0100 1001 <-- 8 этих битов образуют 1 символ,называемым байтом,поэтому любой текст,изображение,видео(там немного другая схема действует),все это всего лишь грандиозный набор команд,разговоры по телефону тоже кодируются из вибрации в набор импульсов и на обратном выходе опять преобразуются в нам всем привычные слова.Любые механизмы,и даже мы с Вами можем передавать информацию,в том числе Азбукой Морзе,даже несколько последовательно сформулированных щелчков пальцев несут в себе информацию,главное ее понять,расшифровать и преобразовать,в видео,аудио,текст,фотографию.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
