ПРОШУ ,ПОЖАЛУЙСТА, ПОМОГИТЕ!!!!!!!!!Программа получает на вход последовательность целых

ПРОШУ ,ПОЖАЛУЙСТА, ПОМОГИТЕ!!!!!!!!!
Программа получает на вход последовательность целых неотрицательных чисел, каждое число записано в отдельной строке. Последовательность заканчивается числом 0, при считывании которого программка обязана закончить свою работу и вывести количество членов последовательности (не считая завершающего числа 0). Числа, последующие за числом 0, считывать не необходимо.
Входные данные
Вводится последовательность целых чисел, заканчивающаяся числом 0 (само число 0 в последовательность не заходит).
Выходные данные
Выведите ответ на задачу.

Задать свой вопрос
Егор Черемшагин
Паскаль?
Зинухо Марина
да
Виолетта Видман
а можно как-нибудь эту задачку решить через while?
1 ответ
Var A,k:integer;
Begin
k:=0;
Repeat
Read(A);
k:=k+1;
Until A = 0;
Write(k-1)
End.
Varvara Fjausova
а можно как-нибудь эту задачку решить через while?
Слава Хантыгов
Можно, только будет длиннее
Таисия
мне всё одинаково,главен оператор
Руслан
Var A,k:integer;Begink:=0;Read(A);While A <> 0 doBeginRead(A);k:=k+1;End;Write(k)End.
Иднатуллин Денис
спасибо)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт