Задание
Сколько существует таких четырехзначных натуральных чисел, что при вводе их программа выведет такое же число, что и при вводе числа 1133. Значение 1133 также включается в подсчёт.
function f(x: integer): integer;
begin
if x mod 2 =1 then
f := x mod 10 + f(x div 10)
else
f := 0;
end;
var N: integer;
begin
readln(n);
writeln(f(N));
end.