Сумма цифр введенного трехзначного числа. Дельфи

[Serge_Bliznykov]

Спасибо, но препод требует чего-то размером в строк 10-15

да можно хоть на 200 строк расписать.
Вопрос ключевой - ЗАЧЕМ ?!

Пусть аргументированно объяснит, чем не подходит простое и эфективное решение, предложенное Grag!

можно ещё так проверить:
if (n div 100)>0 then {число 3-х или более чем трёхзначное..}

p.s.
а можно получить количество разрядов числа и сравнивать полученное число с 3-кой
вот варианты как можно получить количество разрядов числа:

function GetNumLenByDiv(N : longint): integer;
var K : integer;
begin
  if N<0 then GetNumLenByDiv := -1
  else begin
    K := 1;
    while N>9 do begin
      inc(K);
      N := N div 10;
    end;
    GetNumLenByDiv := K;
  end;
end;

или

function GetNumLenByString(N : longint): integer;
var S : string;
begin
  Str(N:1, s);
  GetNumLenByString := Length(s);
end;

или

function Lg(x: double): double;
 begin
   Lg := ln(x) / ln(10);
 end;

function GetNumLenByLogarithm(N : longint): integer;
begin
  if N<0 then GetNumLenByLogarithm := -1
  else
     if N=0 then GetNumLenByLogarithm := 1
     else GetNumLenByLogarithm := trunc(Lg(n))+1;
end;

ну дальше, если GetNumLenByXXXX(Число) <> 3 then {Ошибка! Число не 3-х значное}