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
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
Объяснение:
program daysmonth1;
const n=100;
Var
a,i,m,y,days1,days2:integer;
mas1:array [ 0..n ]of longint;
p:boolean;
BEGIN
p:=false;
writeln('vvedite nomer mesyaca');
readln(m);
writeln('enter year');
readln(y);
a:=1960;
while a<>2012 do begin
a:=a+4;
if y=a then begin writeln('visokosnyi god'); p:=true;
mas1[ i ]:=a;
end;
end;
if m=1 then writeln('jan=31 days');
if (m=2) and (p=false) then writeln('feb=28 days') ;
if (m=2) and (p=true) then writeln('feb=29 days');
if m=3 then writeln('mar=31 days');
if m=4 then writeln('apr=30 days');
if m=5 then writeln('may=31 days');
if m=6 then writeln('june=30 days');
if m=7 then writeln('jule=31 days');
if m=8 then writeln('aug=31 days');
if m=9 then writeln('sept=30 days');
if m=10 then writeln('oct=31 days');
if m=11 then writeln('nov=30 days');
if m=12 then writeln('dec=31 days');
END