Question

найдите количество двузначных чисел, которые делятся на сумму своих цифр

Answer 1

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.