program p174593;
var
n: integer;
function CalcCount2(n: Integer): Integer;
var
i, j, k: Integer;
count: Integer;
begin
count := 0;
for i:= 1 to 9 do
for j:= 0 to 9 do
for k:= 0 to 9 do
if i+j+k = n then inc(count);
CalcCount2 := count
end;
begin
write('n=');
readln(n);
if not (n in [1..27]) then
writeln('количество чисел, с суммой цифр ', n, ' равно 0')
else
writeln('количество чисел, с суммой цифр ', n, ' равно ', CalcCount2(n));
readln;
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.