[tristan]

Дано натуральное число n(n<=100). Сколько цифр в числе n.
-------------------------------------------------------------

Код:

var
a:integer;
begin
readln(a);
if a<=10 then 
  wtiteln(a) 
else
  if a <= 100
  then
    writeln(a div 10)
  else
    writeln('1');
readln{;}
end.

Admin: Пользуемся тегами!

Правильно ли я решил пример или нет? Если нет, то напишите его правильно пожалуста. Заранее всем спасибо за помощь.