Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Всего: 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.