Question

Работаем в Pascal ABC.Net

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

Answer 1

// 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

Answer 2

Ну тогда просто посмотрите мое решение с объяснением: http://znanija.com/task/16584828

Answer 3

Шок-скандал-истерика...

Answer 4

Ладно, пойду спать. Полночь у меня уже.