Question

помоги решить задачу паскаль


Найти количество цифр натурального числа N.

Input

Со стандартного устройства ввода вводится 1 натуральное число, не превосходящее

2000000000.

Output

Нужно выдать на стандартное устройство вывода 1 целое число – количество цифр

введенного числа.


Sample Input Sample Output


123456789 9

2918585 7

Answer 1

Паскаль:

var

a:real;

b:integer;

BEGIN

a:= 2000000001;

while a > 2000000000 do

begin

write('Введите натуральные числа: ');

readln(a);

end;

write('Ответ: ', a);

while a >= 1 do

begin

a:= a / 10;

b:= b + 1;

end;

write(' ', b);

END.

Answer 2

Опечатка

Answer 3

помогите

Answer 4

Ошибка условии while, должно быть a>=1, а не a>1

Answer 5

Как минимум это

Answer 6

Исправил

Answer 7

var

numb, n_of_dig: integer;

begin

repeat

write('Input number: ');

readln(numb);

until (numb > 0) and (numb < 2000000000);

n_of_dig := trunc(ln(numb) / ln(10)) + 1;

writeln(n_of_dig);

end.

Answer 8

Немного другой подход к решению задания

Answer 9

это тоже не проходить

Answer 10

Я именно не проходит?..

Answer 11

Что именно*

Answer 12

И что Вы имеете в виду? Ошибки компиляции, неправильный вывод, еще что-то?..