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



[email protected] в категроии Информатика, вопрос открыт 05.05.2018 в 23:13

Определите, сколько чисел в последовательности, не считая данного числа.

1 ответ



arkhivarius , ответ добавлен 05.05.2018 в 23:28

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

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.