Ну таких чисел несколько, да? Типа 2*3*4 или 1*1*24. Будем делать таким образом. Программа находит такие числа и выводит на экран само число и их сумму не исключены и повторы в суммах(точнее они обязательно будут).
program ff;
uses crt; //можно и без этого но это удобнее
var i1,i2,i3: integer;
begin
For i1:=1 to 9 do
For i2:=0 to 9 do
for i3:=0 to 9 do
if i1*i2*i3=24 then writeln(i1*100+i2*10+i3,' сумма цифр ',i1+i2+i3);
end.
Вопросы в личку. В следующий раз можешь задать задание здесь znanija.com/gruppa/1017