Работаем в pascal abc.net на промежутке от a до b найти все числа и их количество(k), которые делятся на сумму(s) своих цифр. тест: 10 20 10 12 18 20 4

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
  var a,b:integer;
  Read(a,b);
  var k:=0;
  for var i:=a to b do begin
    var n:=i;
    var s:=0;
    while n<>0 do begin
      s+=n mod 10;
      n:=n div 10
      end;
    if i mod s = 0 then
      begin Write(i,' '); Inc(k) end
    end;
  Writeln(#13#10,k)
end.

Тестовое решение:
10 20
10 12 18 20
4