Составьте программу для определения количества цифр в записи произвольного натурального числа
ryslan3222
2
24.08.2019 21:20
0
Другие вопросы по теме Информатика
hrndo
06.04.2021 14:06
Шенявка
06.04.2021 14:06
7432999
06.04.2021 14:07
Дарчик1
17.08.2019 18:20
eromadima
03.08.2019 04:10
paxand
24.09.2019 04:40
Сладкоезка
24.09.2019 04:40
Ната70
31.10.2020 20:35
Коля11111111к
05.06.2019 20:30
Популярные вопросы
- В каком случае ПРАВИЛЬНО указаны главные члены предложения?1)дожди...
2 - Коли виникла та занепала мінойська палацова цивілізація? Скільки...
2 - 1.Найдите АВ и координаты его середины, если А(-4;5) и В(1;-8)...
3 - с английским умоляю вас 3 задание , два столбика заранее...
1 - Як Миколка поводився перед однокласниками? був веселим, жартівливим...
2 - Тұз қышқылымен магний, кальций оксиді, алюминий гидроксиді, қорғасын...
3 - Огневушка-Поскакушка.Как описываются время и место знаменательной...
2 - 3. Гликолизу подверглись три молекулы глюкозы. Сколько молекул...
2 - 1. Отрезки AB и CD пересекаются в точке0, которая является серединой...
2 - Баба-Яга купила новую двухкомнатную избушку на курьих ножках....
3
A,N:integer;
Begin
WriteLn('Введите натуральное число');
ReadLn(A);
N:=0;
While A>0 do
Begin
A:= A div 10;
N:=N+1;
End;
WriteLn(N);
End.