Question

Pascal ABC! Решите! Заменить группы подряд идущих нулей на один нуль.

Answer 1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:=ReadlnString('>');
  Writeln(RegEx.Replace(s,'0{2,}','0'))
end.

Тестовое решение
> 100x100=10000; 10км=10х1000=10000(м)
10x10=10; 10км=10х10=10(м)

Answer 2

Для решения данной задачи в Pascal ABC! можно использовать следующий алгоритм:

1. Создать переменную-флаг, которая будет указывать, находится ли программа внутри группы нулей или нет. По умолчанию флаг будет равен false.

2. Пройтись по всем элементам входной последовательности чисел.

3. Если текущий элемент равен нулю и флаг равен false, то это означает начало новой группы нулей. Установить флаг в true и вывести на экран ноль.

4. Если текущий элемент равен нулю и флаг равен true, то это означает, что программа уже находится внутри группы нулей. Продолжить пропускать все последующие нули.

5. Если текущий элемент не равен нулю, то это означает, что программа вышла из группы нулей. Установить флаг в false и вывести на экран текущий элемент.

Пример кода на Pascal ABC!:

var
  input: array of Integer;
  i: Integer;
  flag: Boolean;

begin
  // Ввод входной последовательности чисел
  SetLength(input, 10);
  for i := 0 to 9 do
  begin
    Write('Введите число: ');
    ReadLn(input[i]);
  end;

// Обработка входной последовательности чисел
  flag := false;
  for i := 0 to 9 do
  begin
    if (input[i] = 0) and (not flag) then
    begin
      flag := true;
      Write('0 ');
    end
    else if (input[i] = 0) and flag then
    begin
      // Пропускаем нули внутри группы
    end
    else
    begin
      flag := false;
      Write(input[i], ' ');
    end;
  end;
end.

В данном примере входная последовательность чисел состоит из 10 элементов. Код последовательно проверяет каждый элемент и в зависимости от его значения выводит либо ноль, либо текущий элемент. Если встречается группа подряд идущих нулей, то выводится только один ноль.