uses crt;
var i,n,d: longint;
function kt(n: integer): boolean;
var a: array[1..20] of byte;
k: integer;
s: byte;
begin
k:=n;
repeat
i:=i+1;
a[i]:=n mod 10;
n:=n div 10;
s:=s+a[i];
if k mod s=0 then kt:=true
else kt:=false;
until n=0;
end;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do
if kt(i)=true then d:=d+1;
readln;
end.