Дано натуральное число n( n<9999). cколько цифр в числе n . паскаль


var
k, n : word;
begin
k := 0;
write('введите N: ');
readln(n);
while n <> 0 do
begin
n := n div 10;
inc(k);
end;
writeln('количество цифр: ', k);
readln
end.

Оцени ответ
Не устраивает ответ?

Если твой вопрос не раскрыт полностью, то попробуй воспользоваться поиском на сайте и найти другие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку (не более 2мб)
Недавние вопросы
Другие вопросы в категории Информатика
Вопросы из других категорий

Математика, опубликовано 13.06.2019

Помогите пожалуйста​