Дано натуральное число 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

Дам 40 баллов срочно

Вопросы из других категорий

Алгебра, опубликовано 13.06.2019

Срочно!!!! решение!!!!!

Алгебра, опубликовано 13.06.2019

Срочно решение!!!!!!!!!!

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

Найти x: ln x=ln6+ln2