procedure foo(n: integer; k: integer := 0);
begin
if n = 0 then Print(k = 4)
else foo(n div 10, k + 1)
end;
begin
var N := ReadInteger();
foo(N)
end.
Юзер по русски будет пользователь
Похали, садили,выращивали,собирали, увазили,делали муку,делали хлеб, в магазин
<span>
Сумма =
<span>82080
Рекомендую часть строк скрыть, тогда легче работать с большой базой данных.</span></span>