Длина последовательности (Pascal)

AvariItigail

25 апреля 2016

Программа получает на вход последовательность целых неотрицательных чисел, каждое число записано в отдельной строке. Последовательность завершается числом 0, при считывании которого программа должна закончить свою работу и вывести количество членов последовательности (не считая завершающего числа 0).

Числа, следующие за числом 0, считывать не нужно.

Входные данные
Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит).

Выходные данные
Выведите ответ на задачу.

Исходный код на языке Pascal

var
  a, s: integer;

begin
  s := 0;
  read (a);
  while a <> 0 do
  begin
    s := s + 1;
    read(a);
  end;
  writeln(s);
end.