Помогите!

Составьте программу для определения количества цифр в записи произвольного натурального числа

Question

Информатика

Мишута

13 июля, 19:44

Помогите!

Составьте программу для определения количества цифр в записи произвольного натурального числа

+2

Ответы (1)

Знаете ответ?

Тасюта · Answer 1

Var

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.

Помогите!Составьте программу для определения количества цифр в записи произвольного натурального числа

Помогите!

Составьте программу для определения количества цифр в записи произвольного натурального числа