Сколько существует таких четырехзначных натуральных чисел, что при вводе их программа выведет такое же число, что и при вводе числа 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.
Задание

Сколько существует таких четырехзначных натуральных чисел, что при вводе их программа выведет такое же число, что и при вводе числа 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.