Арифметическая задача(Delphi(в форме)).Найти все трехзначные числа,сумма цифр которых равна А,а само А делится на В.А и В вводятся

[NIR957]

Всем доброго времени суток! Встречал на форуме подобную задачу но на другом языке программирования и не смог разобраться.
Найти все трехзначные числа,сумма цифр которых равна А,а само А делится на В. А и В задаются.

[Serge_Bliznykov]

найти сумму цифр можно либо такой функцией:

function SumNum(Num : longint) : integer;
var MySum, OneDigit : integer;
begin
  MySum := 0;
  while Num>0 do begin
      OneDigit := Num mod 10;
      Num := Num div 10;
      MySum := MySum + OneDigit;
  end;
  SumNum := MySum;
end;

либо такой функцией:

function SumDigit(N : integer) : integer;
begin
  if N<1 then SumDigit := N
  else SumDigit := SumDigit(N div 10) + (N mod 10)
end;

либо, для 3-х значного числа можно даже так, "в лоб":

sum3 := (N div 100) + ((N div 10) mod 10) + (N mod 10);

признак делимости числа на B

if Число mod B = 0 
   then // число делится на B нацело
   else // число  НЕ делится нацело