Работаем в Pascal ABC.Net ** промежутке от a до b найти все числа и их количество(k),...

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

Comments

А то начиная с 11 у него инфаркт будет.

---

+= *= ништяк по-моему полный.

---

А Вы найдите силу, до конца досмотрите

---

1 уровень у нас. В сентябре только изучать начали.

---

Половину не понял, но по-моему прикольно видеть на картинках в 2 раза меньше строк на 2 картинке, чем на 1)

---

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

---

И сравните с решением на Джава, похожим больше на спам)))

---

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

---

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

---

Спокойной ночи.