Question

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

Answer 1

Ответ:

(PascalABC)

var i,cnt: integer;

begin

i:=-1;

cnt:=0;

while (i<>0) do

 begin

 write('Введите число: ');

 readln(i);

 cnt:= cnt + 1;

 end;

writeln('Количество чисел в последовательности равно ',cnt);

end.