Pascal ABC Задача с while, for, if. ** промежутке от a до b найти все числа и их...

Question

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

Answer 1

Var
 a,b,i,j,k,s:integer;
begin
 write('a='); readln(a);
 write('b='); readln(b);
 k:=0;
 for i:=a to b do
  begin
   j:=i;
   s:=0;
   while (j>0) do
    begin
     s:=s+(j mod 10);
     j:=j div 10;
    end;
   if (i mod s)=0 then
    begin
     write(i,' ');
     inc(k);
    end;
  end;
 writeln;
 writeln('k=',k);
end.

Comments

извините за форматирование - это мой первый ответ на этом сайте

---

Код отформатируйте, пожалуйста! Иначе удалить придется

---

как это сделать?

---

В режиме исправления.

---

как войти в этот режим?

---

Обновите экран, появится подсказ под ответом

---

Можно и без a= b=, но вроде тоже логика есть)

---

проверил, работает, естественно