Паскаль: Дана последовательность целых положительных чисел, заканчивающаяся числом, разряд единиц которого равен нулю.
[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.
0
Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.