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