Даны два целых числа A и B ( A < B ) Найти частное, получаемое при делении A ** все...

Question

Даны два целых числа A и B ( A < B ) Найти частное, получаемое при делении A на все делители из диапазона целых чисел от A до B включительно.
Это паскаль, только код напишите нормально, пожалуйста.
Заранее, спасибо.

Answer 1

Программа на фотке, код старался сделать простым, сделал ещё защиту от дурака это значит программа не заработает если пользователь не выполнит условие А<Б  <hr>

Comments

Спасибо.

---

В таком случае строчку writeln('При делении',a,'/',i,' частное = [',k,' ]'); просто меняем на If Frac(k)=0 then writeln('При делении',a,'/',i,' частное = [',k,' ]'); где Frac(k) определяет дробную часть и если она равна 0 то число целое и мы его выводим, а условие А<Б меня тоже смущает