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

Ответы 5

  • а можно как-нибудь эту задачу решить через while?
  • Можно, только будет длиннее
    • Автор:

      bernabé
    • 5 лет назад
    • 0
  • мне всё равно,важен оператор
  • Var A,k:integer;Begink:=0;Read(A);While A <> 0 doBeginRead(A);k:=k+1;End;Write(k)End.
    • Автор:

      flowers23
    • 5 лет назад
    • 0
  • Var A,k:integer;Begink:=0;RepeatRead(A);k:=k+1;Until A = 0;Write(k-1)End.
  • Добавить свой ответ

Войти через Google

или

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

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

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