Var
b,i:integer;
S:string;
Begin
Readln(S);
b:=0;
For i:=1 to length(s) do
if i<length(s) then begin
if (s[i]='ж') or (s[i]='ш') then if s[i+1]='ы' then begin s[i+1]:='и'; b:=b+1; end;
End;
Writeln(b);
Writeln(s);
<span>End.</span>
Проще в виде скриншота тебе это дать, форматирование плывет
Для текущего месяца (т.е. только для октября, потому что не было указано в вопросе учитываются другие месяцы или нет)
program zd;
const
b=26;
var
a,c:byte;
begin
writeln('Введите день');
readln(a);
if a<b then {проверяется условие, если введенный день меньше заданного дня, то вычислить оставшиеся дни}
c:=b-a
else {иначе вывести смс}
writeln('Данный день уже прошёл');
writeln('Осталось', с, 'дней');
end.
Вроде бы правильно) извиняюсь за исправления, просто тороплюсь
Первая проверка a < b = 100< 12 - нет, уходим по стрелке справа
Вторая проверка b<c = 12 < 100 - да, уходим по стрелке слева
d:=b то есть d:= 12
вывод d = 12
Ответ: 12.