Запишите на языке Паскаль программы решения задач, используйте оператор while :
1) Составьте алгоритм для определения количества цифр в записи произвольного натурального числа
1) Составьте алгоритм для определения количества цифр в записи произвольного натурального числа
More Questions From This User See All
Answers & Comments
begin
Writeln('Введиье число');
Readln(a);
while a div 10 <> 0 do
begin
a:=a div 10;
n:=n+1;
end;
Writeln('В данном числе ', n+1, ' цифр(ы,а)');
end.