1. определите значение переменной икс после выполнения следующего фрагмента программы: а: =‘t’; b: =ord(a) x: =a+chr(b-1)+chr(b+2) 2. определить лечение переменные x(false,true) после выполнения следующего фрагмента программы: a: =15; b: =3; x: =a doc b+0
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
rem Конец программы
end