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

Question

Айнар

4 апреля, 07:29

+2

Ответы (1)

Знаете ответ?

Катлин · Answer 1

Var

i, a: longint;

begin

read (a) ;

i : = 1;

while (a mod 10 0) do

inc (i) ;

writeln ('Чисел в последовательности: ', i) ;

end.