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

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

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

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

    Примеры
    входные данные
    1
    7
    9
    0
    5
    выходные данные
    3

Ответы 1

  • Var A,k:integer;Begink:=0;Read(A);While A <> 0 doBeginRead(A);k:=k+1;End;Write(k)End. 
    • Автор:

      chazcowa
    • 1 год назад
    • 11
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years