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
находиться во время перемены в компьютерном классе без разрешения старшего (преподавателя); включать без разрешения оборудование; трогать разъемы соединительных кабелей и проводов(возможно поражение электрическим током); прикасаться к питающим проводам и устройствам заземления; прикасаться к экрану и к тыльной стороне монитора, клавиатуры; включать и выключать аппаратуру без указания преподавателя; работать в верхней одежде и влажными руками; прыгать, бегать (пылить); класть диски, книги, тетради и другие предметы на монитор и клавиатуру; устанавливать или копировать программы с дискет, дисков и флеш-носителей на компьютер, предварительно не проверив их антивирусом; При появлении запаха гари немедленно прекратите работу, выключите аппаратуру и сообщите об этом преподавателю.
Во время работы:
строго выполняйте все указанные выше правила, а также текущие указания преподавателя; следите за исправностью аппаратуры и немедленно прекращайте работу при появлении необычного звука или самопроизвольного отключения аппаратуры; легко и быстро нажимайте на клавиши, не допуская резких ударов; не пользуйтесь клавиатурой и мышью, если не включен компьютер; работайте на клавиатуре чистыми руками; никогда не пытайтесь самостоятельно устранить неисправность в работе аппаратуры; не вставайте со своих рабочих мест, когда в кабинет входят посетители.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку