Даны два целых числа A и B ( A amp;lt; B

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

Задать свой вопрос
1 ответ
Программка на фотке, код старался сделать обычным, сделал ещё защиту от дурачины это означает программка не заработает если пользователь не выполнит условие Аlt;Б  
Шейденкова Юлия
Спасибо.
Тростинская Диана
В таком случае строку writeln('При делении',a,'/',i,' приватное = [',k,' ]'); просто меняем на If Frac(k)=0 then writeln('При делении',a,'/',i,' частное = [',k,' ]'); где Frac(k) определяет дробную часть и если она одинакова 0 то число целое и мы его выводим, а условие А<Б меня тоже смущает
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт