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

Question

Запишите на языке Паскаль программы решения задач, используйте оператор while :
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.