однажды жила принцесса но злая мачеха узнала что она встречается с бедным парнем то она заперла её в темнице. А парень узнал об этом и побежал к своему другу изобретателю а тот ему дал какуюта штуку.
-что это - сказал парень
- это телефон - ответил изобретатель - он тебе
и во парень закинул телефон принцессе и они начали разговаривать и веселиться. Но об этом скоро узнала мачеха
- что ты делаешь? - спросила мачеха и отобрала у неё телефон
но парень снова побежал к своему другу изобретателю а тот ему дал компьютер который изобрёл вчера вечером и объяснил как им пользоваться. И каждый день они связывались по компьютеру. А мачеха узнала об этом и взорвалась со злости. И исчезла башня и принцесса была на свободе. И вскоре принцесса с парнем поженились и вспоминали компьютер. И каждый раз благодарили изобретателя.
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
однажды жила принцесса но злая мачеха узнала что она встречается с бедным парнем то она заперла её в темнице. А парень узнал об этом и побежал к своему другу изобретателю а тот ему дал какуюта штуку.
-что это - сказал парень
- это телефон - ответил изобретатель - он тебе
и во парень закинул телефон принцессе и они начали разговаривать и веселиться. Но об этом скоро узнала мачеха
- что ты делаешь? - спросила мачеха и отобрала у неё телефон
но парень снова побежал к своему другу изобретателю а тот ему дал компьютер который изобрёл вчера вечером и объяснил как им пользоваться. И каждый день они связывались по компьютеру. А мачеха узнала об этом и взорвалась со злости. И исчезла башня и принцесса была на свободе. И вскоре принцесса с парнем поженились и вспоминали компьютер. И каждый раз благодарили изобретателя.