Паскаль. Вообще нужна программа в которую например вводишь число 120 и она говорит это...

Question

Паскаль.
Вообще нужна программа в которую например вводишь число 120
и она говорит это число трехзначное или например 90
это число двухзначное

Answer 1

Program dshvedkov;

var
  n,k:integer;

begin
  Write('n='); Read(n);
  k:=0;
  n:=Abs(n); // От минуса, иначе эта строка не нужна
  while n>0 do begin
    k:=k+1;
    n:=n div 10
    end;
  Writeln('Число ',k,'-значное')
end.

Пример
n=120
Число 3-значное

Comments

cпасибо)промохнулся 4 звезды поставил

---

Будто в звездах вся жизнь состоит... )))