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

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

Question

Информатика

Лейлабадар

28 июля, 16:16

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

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

+4

Ответы (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.