Паскаль: Дана последовательность целых положительных чисел, заканчивающаяся числом, разряд единиц которого равен нулю. Определите, сколько чисел в последовательности, не считая данного числа.

Предыдущий
вопрос Следующий
вопрос

Пример решения на языке Паскаль:

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.

Пользователь вводит числа последовательности по одному, программа считает количество чисел в последовательности, не считая последнего, у которого разряд единиц равен нулю.