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

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

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

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

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


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