Помогите,пожалуйста.Пользователь может ввести однозначное,двухзначное или трехзначное...

Question

Помогите,пожалуйста.
Пользователь может ввести однозначное,двухзначное или трехзначное число. Написать программу,вычисляющую,сколько цифр во введенном числе

Answer 1

Замечание: предполагается, что вводится неотрицательное число.
var a:integer;
BEGIN
write('Введите число: ');
readln(a);
write('Количество цифр в числе: ');
if a<10 then writeln(1)<br> else if a<100 then writeln(2)<br>  else writeln(3);
END.

Пример:
Введите число: 52
Количество цифр в числе: 2