Найти в числе, введенном с клавиатуры, наибольшую цифру и оценить сложность данного алгоритма
У меня это так :
Код
Program z;
uses crt;
var m,n: integer;
i,max,ost : shortint;
begin
clrscr;
writeln('Введите число : ');
readln(n);
m:=n;
max:=1; i:=0;
while n>0 do
begin
inc(i);
ost:=n mod 10;
n:=n div 10;
if ost>max then max:=ost;
end;
writeLn('Наибольшая цифра в числе ',m,' цифра ',max);
readkey;
end.
А какую сложность имеет этот алгоритм понятия не имею
Если у кого есть - киньте, плиз, ссылочку где толково написано про оценку сложности алгоритмов, или помогите оценить этот.