Написать программу: дано натуральное число (не более 10 000), определить количество цифр...

Question

Написать программу: дано натуральное число (не более 10 000), определить количество цифр в нем

Comments

beginwrite (length (readstring));end.

---

спасибо)

---

То же самое, что и нижнее решение. С такой же логикой можно любую программу в одну строчку написать, заменив все '\n' на пробелы

Answer 1

//PascalABC.NET

begin
  write('Количество цифр: ', ReadString('Введите число:').Length)
end.

Answer 2

Var i: byte;
begin
var n:=readinteger ('Введите n: ');
repeat
inc (i);
n:=n div 10;
until n=0;
write (i);
end.

Comments

Вас понял!