Процедура обработки нажатия на кнопку:
procedure TForm1.Button1Click(Sender: TObject);
var sum,n,i:integer;
s,s1:string;
begin
n:=StrToInt(Edit1.Text);
sum:=0;
For i:=100 to 999 do
begin
sum:=0;
s1:=IntToStr(i);
sum:=sum+StrToInt(s1[1])+StrToInt(s1[2])+StrToInt(s1[3]);
If sum=n then
s:=s+IntToStr(i)+', ';
end;
ShowMessage(s);
end;
создаем цикл по всем трехзначным числам:
For i:=100 to 999 do
конвертируем целое число в текст:
s1:=IntToStr(i);
Считаем суммы всех разрядов числа:
sum:=sum+StrToInt(s1[1])+StrToInt(s1[2])+StrToInt(s1[3]);
Если сумма удовлетворяет нашему натуральному числу то сохраняем результат:
If sum=n then
s:=s+IntToStr(i)+', ';
Функция ShowMessage выводит результат. |
Главная
Каталог файлов
