Question

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

Answer 1

var a,count:integer;

begin

 repeat

   readln(a);

   if a > 4 then

   inc(count);

 until

 a = 0;

 writeln;

 writeln(count);

end.

Объяснение: