Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Программирование [игнор отключен] [закрыт для гостей] / pascal / 7 сообщений из 7, страница 1 из 1
21.01.2014, 19:55
    #38533635
lesha7777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pascal
Из данного диапазона [M,N] выписать все числа, у которых ровно 2 делителя (отличных от 1 и самого числа) язык программирования pascal
...
Рейтинг: 0 / 0
21.01.2014, 20:00
    #38533642
DarkMaster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pascal
lesha7777,

Как остаток от деления получить знаешь?
...
Рейтинг: 0 / 0
21.01.2014, 20:02
    #38533644
lesha7777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pascal
DarkMaster, да знаю
...
Рейтинг: 0 / 0
21.01.2014, 20:40
    #38533677
DarkMaster
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pascal
lesha7777,

- берешь очередное число из массива (диапазона) (пусть будет N)
- начиная от 2 и заканчивая N-1 (пусть будет M) делишь N/M, берешь остаток
- если остаток = 0 - увеличиваешь число делителей
- если число делителей 2 - выводишь N

Все...
...
Рейтинг: 0 / 0
21.01.2014, 20:56
    #38533687
lesha7777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pascal
DarkMaster,уже сделал
...
Рейтинг: 0 / 0
21.01.2014, 23:44
    #38533813
Програмёр
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pascal
lesha7777DarkMaster,уже сделал

M можно брать от 2 до trunc(sqrt(N)).... каждую делимость мы плюсуем не 1, а 2... и если sqrt(N) - целое число, то + ещё 1.. В принципе проверку этого условия можно сделать первой. Если она пройдёт, то мы уже 100% не получим 2 делителя и можно сразу переходить к следующему N :)
...
Рейтинг: 0 / 0
23.01.2014, 21:36
    #38536101
lesha7777
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pascal
Програмёр, большое спасибо)
...
Рейтинг: 0 / 0
Форумы / Программирование [игнор отключен] [закрыт для гостей] / pascal / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]