// 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
H = e - самая частая буква английского языка. Обратим внимание на слово V из одной буквы. Скорее всего, V = a, есть артикль а. Из 1 буквы есть еще местоимение I, но оно встречается намного реже. PWH = the; P = t, W = h; PWVP = that. tK = to; K = o oL = of; L = f Дальше пойдет легче, я просто пишу список букв: E = r; J = c; T = s; X = l; I = i; B = m; F = u; N = v; O = n; C = d; D = g; R = y; A = w; Y = x; Z = j; U = p; Q = q; S = z; G = b; M = k В итоге получаем такой текст: Let's set the existence-of-god issue aside for a later volume, and just stipulate that in some way, self-replicating organisms came into existence on this planet and immediately began trying to get rid of each other, either by spamming their environments with rough copies of themselves, or by more direct means which hardly need to be belabored. Most of them failed, and their genetic legacy was erased from the universe forever, but a few found some way to survive and to propagate. After about three billion years of this sometimes zany, frequently tedious fugue of carnality and carnage, godfrey waterhouse iv was born, in murdo, south dakota, to blanche, the wife of a congregational preacher named bunyan waterhouse. Like every other creature on the face of the earth, godfrey was, by birthright, a stupendous badass, albeit in the somewhat narrow technical sense that he could trace his ancestry back up a long line of slightly less highly evolved stupendous badasses to that first self-replicating gizmo-which, given the number and variety of its descendants, might justifiably be described as the most stupendous badass of all time. Everyone and everything that wasn't a stupendous badass was dead.
