Есть ответ 👍

Исполнитель Редактор получает на вход строку цифр и преобразовывает её. Редактор может выполнять две команды, в обеих командах v и w обозначают цепочки символов. заменить (v, w) нашлось (v) Первая команда заменяет в строке первое слева вхождение цепочки v на цепочку w. Если цепочки v в строке нет, эта команда не изменяет строку. Вторая команда проверяет, встречается ли цепочка v в строке исполнителя Редактор. Если она встречается, то команда возвращает логическое значение "истина", в противном случае возвращает значение "ложь". Дана программа для исполнителя Редактор:
НАЧАЛО ПОКА нашлось (1111) заменить (1111, 2) заменить (222, 1) КОНЕЦ ПОКА КОНЕЦ все​

ОЧЕНЬ С ОБЪЯСНЕНИЕМ

259
498
Посмотреть ответы 1

Ответы на вопрос:


// pascalabc.net 3.0, сборка 1073 const   s='qwertyuiopasdfghjklzxcvbnmqqwertyuiopasdfghjklzxcvbnmq'; 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

Популярно: Информатика