помоги решить задачку паскальНайти количество цифр натурального числа N.InputСо стандартного
Помоги решить задачу паскаль
Отыскать количество цифр естественного числа N.
Input
Со стандартного устройства ввода вводится 1 натуральное число, не превосходящее
2000000000.
Output
Необходимо выдать на стандартное устройство вывода 1 целое число количество цифр
введенного числа.
Sample Input Sample Output
123456789 9
2918585 7
var
numb, n_of_dig: integer;
begin
repeat
write('Input number: ');
readln(numb);
until (numb gt; 0) and (numb lt; 2000000000);
n_of_dig := trunc(ln(numb) / ln(10)) + 1;
writeln(n_of_dig);
end.
Паскаль:
var
a:real;
b:integer;
BEGIN
a:= 2000000001;
while a gt; 2000000000 do
begin
write('Введите естественные числа: ');
readln(a);
end;
write('Ответ: ', a);
while a gt;= 1 do
begin
a:= a / 10;
b:= b + 1;
end;
write(' ', b);
END.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.