Question

составьте алгоритм, программу и значение переменной ​

Answer 1

program TT;

var k, x:integer;

begin

k:=0;

repeat

 begin

      read(x);

      if x>1 then k:=k+1;

 end;

until x=0;

write(k);

end.