<span>Возможно это будет так)
А З У Б Д А З У У Д Д </span>
{вот правильное решение я там забыл то чтобы подсчитывать число букв a}
<span>var </span><span><span> s</span>: string;</span><span><span>
i</span>, id, len, max, count,q: byte;</span>
begin
<span>
q:=0;
readln(s);</span><span><span>
len </span>:= length(s);</span><span><span>
max </span>:= 0;</span><span><span>
id </span>:= 0;</span>
<span><span> count </span>:= 0;</span><span>
for i:=1 to len do </span><span>
if s[i] <> ' ' then</span><span><span> count </span>:= count + 1</span><span>
else begin</span><span>
if count > max then begin</span><span><span>
max
</span>:= count;</span><span><span>
id </span>:= i - count;</span><span>
end;</span><span><span>
count </span>:= 0</span><span>
end;</span>
<span>
if count > max then begin </span><span><span>
max </span>:= count;</span><span><span>
id </span>:= i - count;</span><span>
end<span>;
</span></span>
<span> for i:=id to id+max do</span><span>
if s[i] = 'a' then begin</span><span><span> q:=q+1; s</span>[i] := 'b';</span>
<span>
writeln(s,' ' , q);</span>
end;
<span>end<span>.
</span></span>
1) Трое минимум, так как максимум одновременных уроков физкультуры 3 (второй урок).
2) В 10а перенести второй урок на шестой.
3) 1-Иванов, 2-Петров, 3-Сидоров
<span>Расписание занятий </span>
№ урока
<span> 9а 9б 10а 10б 11а 11б </span>
<span>1)__1__________3______________ </span>
2)__1_____2____3______________
3)____1___3___________________
<span>4)____1___________3___________ </span>
<span>5)________________1___3_______ </span>
6_____________________3_______
4) Номера - преподы.
<span>Расписание занятий </span>
№ урока
<span> 9а 9б 10а 10б 11а 11б </span>
<span>1)__1__________3______________ </span>
2)__1_____2____3______________
3)____1___2___________________
<span>4)____1___________2___________ </span>
<span>5)________________2___3_______ </span>
<span>6_____________________3_______</span>
<span><span>Вообще, из 9 букв)
Автосалон</span>
</span><span><span>Автоспорт
Автоспуск
Авиасалон
</span></span>