Программа получает на вход последовательность целых неотрицательных чисел, каждое число

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

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

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

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

Образцы
входные данные
1
7
9
0
5
выходные данные
3

Задать свой вопрос
1 ответ
Var A,k:integer;
Begin
k:=0;
Read(A);
While A lt;gt; 0 do
Begin
Read(A);
k:=k+1;
End;
Write(k)
End. 
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт