Question

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

Answer 1

var
i, a: longint;
begin
read(a);
i := 1;
while (a mod 10 <> 0) do
inc(i);
writeln('Чисел в последовательности: ', i);
end.