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
a=int(input())
k2=0
k1=0
while a>0:
if a%10%2==0:
k2+=1
else:
k1+=1
a//=10
if k2>k1:
print(1)
else:
print(0)
Объяснение:
отступы на скрине
k2 - количество чётных цифр
k1 - количество нечётных цифр