Паскаль.

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

и она говорит это число трехзначное или например 90

это число двухзначное

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-значное