program xxx;
var i, k, d, e, s : integer;
begin
k:=0;
for i:= 10 to 99 do
d:= i div 10;
e:= i mod 10;
s:=d + e;
if i mod s = 0 then k:=k+1
end;
write ('кол-во чисел которые делятся на сумму своих цифр=', k);
readln
end..
program xxx;
var i, k, d, e, s : integer;
begin
k:=0;
for i:= 10 to 99 do
begin
d:= i div 10;
e:= i mod 10;
s:=d + e;
if i mod s = 0 then k:=k+1
end;
write ('кол-во чисел которые делятся на сумму своих цифр=', k);
readln
end..