program raf105;
var
a,i,j,s: integer;
f,st: string;
inA,inB: boolean;
begin
readln(a);
readln(f);
i:=1;
while i < length(f)-1 do
begin
st:= f[i] + f[i+1];
inA:= False;
inB:= False;
for j:=1 to length(st)-1 do
begin
if st[j] = 'a' then inA:= True;
if st[j] = 'b' then inB:= True;
end;
if (not inA) or (not inB) then
if st = 'bb' then
f[i+1]:= 'a'
else
f[i+1]:= 'b';
s:= s+1;
i+= 2;
end;
writeln(s);
for i:=1 to length(f)-1 do
write(f[i],' ');
end.
<h3>PascalABC</h3>
<span>Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.</span>
ВПУ, число букв нечётно. АВПУ, заменяем буквы. ЯБОТ, переписываем. <em>ТОБЯ
</em>ЯТОБ, число знаков чётно. ЯТОБО, заменяем буквы. ЮСНАН, переписываем: <u>НАНСЮ</u>
Получается так)
#include <iostream>
#include <string>
#include "Windows.h"
using namespace std;
void main()
{
<span> SetConsoleOutputCP(1251);
</span><span> string nazv[] = { "большой", "указательный", "средний", "безымянный", "мизинец" };</span><span>
int number = 0;
</span><span> cout << "Введите номер пальца:"; cin >> number;
</span><span> if (number <= 0 || number > 5)
</span><span> cout << "Ввели неверный номер." << endl;
</span><span> else
</span><span> cout << nazv[number - 1] << endl;
</span><span>}</span>