У Пульты вес будет больше примерно на 20 бит
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>
С помощью компьютера модно найти информацию иди видео урок, что очень полезно в век новых технологий и для учебы
В прикрепленном изображении указаны формулы, необходимые для решения этой задачи. Код программы приведен ниже.
Удачи!
var a1, a5, an, d, sum, n : integer;
begin<span>
readln(a1, a5, n);<em>{получаем на вход первый и пятый члены прогрессии и число n}</em></span><span>
d := (a5 - a1) div 4; <em>{Находим разность прогрессии}</em></span><span>
an := a1 + (n - 1) * d;<em>{Находим член прогрессии с номером n}</em></span><span>
sum := ((a1 + an) * n) div 2; <em>{Находим сумму первых n членов прогрессии}</em></span><span>
writeln('n-ый член прогрессии: ', an);</span><span>
writeln('Сумма первых n членов прогрессии: ', sum);
</span>end.<span>
</span>