Question

вычислить количество всех трехзначных чисел сумма цифр которых равна 12

Answer 1

Всего: 66

Паскаль:

Var i,n : Integer;
Begin
  n:=0;
  For i:=100 to 999 do
    If i div 100 + i div 10 mod 10 + i mod 10 = 12 then
    Begin
      Inc(n);
      Writeln(i);
    end;
  Writeln('Всего: ',n);
end.

Answer 2

Подтверждаю. Всего: 66