Rem BASIC-256 cls errors = 0 print "Введите текст > ";
rem Пользователь вводит текст input a$
rem Перебираем все буквы с начала и до предпоследней for i=1 to length(a$)-1
rem Если встречаем букву Ч или Щ if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then
rem Тогда проверяем следующую за ней букву. rem Если это буква я, тогда подсчитываем очередную ошибку if mid(a$, i + 1, 1) = "я" then errors = errors + 1 end if
rem Переходим к следующей букве next i
rem Вывод результата print "Количество ошибок в тексте "; print errors
// 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
Слишком много символов + Есть пробел