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

Question

Адхат

23 июня, 12:38

+1

Ответы (1)

Знаете ответ на вопрос?

Аграф · Answer 1

Var

i, a: longint;

begin

read (a) ;

i : = 1;

while (a mod 10 0) do

inc (i) ;

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

end.