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

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

Ответы 5

а можно как-нибудь эту задачу решить через while?
- Автор:
  kamilarandall
- 5 лет назад
- 0
Можно, только будет длиннее
- Автор:
  bernabé
- 5 лет назад
- 0
мне всё равно,важен оператор
- Автор:
  chucklestewt
- 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.
- Автор:
  omarimckenzie
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы