[HellRus]

Поставлена такая задача:
Найдите все трехзначные числа, сумма цифр которых равна заданному числу n.

Помогите, пожалуйста. В Delphi не очень разбираюсь, а задачу нужно выполнить.
Заранее благодарен.

[NIch]

Ну я так думаю нужно пробежаться по всем числам в массиве, по пути превавщая число в строку, проверить количество символов в строке и сумму символов (превращенных в цифру) в строке...если параметры совпадают, то скопировать в другой массив...

Код:

var
 str : string;
 n : integer;
 mass_ array of integer;
begin
 for i := 0 to length(Mass)-1 do begin//от начала до конца массива
  Mass[i] := IntToStr(str);//приравниваем элемент массива переменной
  if length(str)=3 then//если длина строки 3 
   if StrToInt(str[0])+StrToInt(str[1])+StrToInt(str[2])=n then//если сумма n
   mass_ := Copy(mass, i, 1);//функция копировать    
 end;
end;

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

как то так, писал навскидку...