Question

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

Answer 1

var i,k,s:integer;

begin

  k:=0;

  for i:=10 to 99 do

  begin

     s:=0;

     s:=s+i mod 10 +i div 10;  

     if i mod s=0 then k:=k+1;

     writeln('s=',s,'  i=',i,'  k=',k);

  end;

  write('k=',k);

end.