Найти все трехзначные числа,сумма цифр которых равна А, а само число делится на В( А и В вводятся с клавиатуры).
Например, можно вот так:
for i:=1 to 9 do for j:=0 to 9 do for k:=0 to 9 do if (i+j+k=A)and((100*i+j*10+k)mod B=0) then WriteLn(i,j,k);