Объясните, как решается эта ? у исполнителя кузнечик две команды: 1. прибавь 7 2. вычти 5 первая из - id714124820230407 от Space0611 07.04.2023 08:41

Question

Информатика: Объясните, как решается эта ? у исполнителя кузнечик две команды: 1. прибавь 7 2. вычти 5 первая из них увеличивает число на экране на 7, вторая – уменьшает его на 5 (отрицательные числа допускаются). программа для кузнечика – это последовательность команд. сколько различных чисел можно получить из числа 1 с программы, которая содержит ровно 7 команд?

Space0611 · Accepted Answer

{вот правильное решение я там забыл то чтобы подсчитывать число букв a}
var               s: string;
i, id, len, max, count,q: byte;
begin
q:=0;
  readln(s);
  len := length(s);
max := 0;
id := 0;
count := 0;
  for i:=1 to len do
if s[i] <> ' ' then                           count := count + 1
else begin
  if count > max then begin
max := count;
  id := i - count;
  end;
  count := 0
  end;
  if count > max then begin
max := count;
  id := i - count;
end;
            for i:=id to id+max do
if s[i] = 'a' then begin q:=q+1; s[i] := 'b';
writeln(s,' ' , q);
end;
end.

MOGZ ответил