Помоги решить задачу паскальНайти количество цифр натурального числа N.InputСо...

Question

Помоги решить задачу паскальНайти количество цифр натурального числа N.InputСо стандартного устройства ввода вводится 1 натуральное число, не превосходящее2000000000.OutputНужно выдать на стандартное устройство вывода 1 целое число – количество цифрвведенного числа.Sample Input Sample Output123456789 92918585 7

Comments

задача не проходить

---

Перекопируйте (убрал пробелы, в них проблема)

---

с программ

---

пж

---

скинь

---

давай нормально

---

Уже

---

и норм

---

скинь нормально без пробелов

---

не идеть задача

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.

Comments

10^n

---

Исправил

---

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

---

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

---

помогите

---

Опечатка

---

У Вас неверно работает программа для чисел 2^n

---

задача не проходить

Answer 2

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.

Comments

Что именно*

---

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

---

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

---

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

---

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