PascalABC
Объяснение:
uses graphABC;
begin
SetWindowSize(600,500);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
Ellipse(100,430,500,130);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);
Ellipse(270,330,330,370);
Line(300,370,300,400);
Arc(300,280,120,220,-40);
Line(50,350,200,350);
Line(30,340,190,340);
Line(10,330,180,330);
Line(410,330,570,330);
Line(400,340,560,340);
Line(390,350,550,350);
Line(240,230,220,150);
Line(230,230,180,80);
Line(220,230,180,150);
Line(360,230,380,150);
Line(370,230,430,80);
Line(380,230,430,150);
end.
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