Question

Задана последовательность неотрицательных целых чисел. требуется определить длину последовательности, завершающуюся первым встретившимся нолем (число 0 не входит в последовательность). входные данные входной файл input.txt содержит последовательность неотрицательных целых чисел, не превышающих значения 100. гарантируется, что во входных данных не более 100 чисел и среди них есть хотя бы одно число 0. выходные данные в выходной файл output.txt выведите целое число – длину последовательности. решите, на c++ или на pascal

Answer 1

Program arr_length;

const
  IN_FILENAME = 'INPUT.txt';
  OUT_FILENAME = 'OUTPUT.txt';

var
  fileIn,fileOut: TextFile;
  s,t: string;

begin
  writeln('Загружаю входные данные...');
  t := '';
  AssignFile(fileIn, IN_FILENAME);
  AssignFile(fileOut, OUT_FILENAME);
    reset(fileIn);
    while not eof(fileIn) do
      begin
        readln(fileIn, s);
        if (s = '0') then
             break
        else
          t := t + s;
      end;
    CloseFile(fileIn);
    rewrite(fileOut);
    writeln(fileOut, Length(t));
    CloseFile(fileOut);
end.