Для решения этой задачи мы можем использовать язык программирования Pascal. Предложу вам следующий код:

program CountNumbers;
var
num, count: integer;
begin
count := 0;
repeat
read(num);
if num mod 10 <> 0 then
count := count + 1;
until num mod 10 = 0;
writeln('Количество чисел в последовательности, не считая данного числа: ', count);
end.

Вы можете скопировать этот код в среду программирования Pascal и запустить для решения задачи. Вводите числа последовательности по одному, заканчивая числом с нулевым разрядом единиц, программа посчитает количество чисел в последовательности без этого числа.