[C1berBoy]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 N, Summ, i: word;//Число, Сумма, цикл
 S: string;//Вспомогательная переменная
begin
for n:=100 to 500 do begin
 S := IntToStr(n);//Переводим число в строку
 Summ := 0;//Начальное значение суммы
 for i := 0 to Length(S)-1 do
 Summ := Summ + StrToInt(S[i]);//Строка число это массив символов
 label1.Caption:=inttostr(summ);
 end;end;
end.

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

вот я что делал)))