Запишите на языке Паскаль программы решения задач, используйте оператор while:

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

Question

Информатика

Тсонка

16 декабря, 12:31

Запишите на языке Паскаль программы решения задач, используйте оператор while:

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

+2

Ответы (1)

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

Аряна · Answer 1

Var a, n: integer;

begin

Writeln ('Введиье число') ;

Readln (a) ;

while a div 10 0 do

begin

a:=a div 10;

n:=n+1;

end;

Writeln ('В данном числе ', n+1, ' цифр (ы, а) ') ;

end.