|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.10.2011, 21:29 | #1 |
Новичок
Джуниор
Регистрация: 14.10.2011
Сообщений: 4
|
Задача:простые числа
Необходимо вывести все простые числа от M до N включительно.
Входные числа содержат два натуральных числа M и N,разделенных пробелом (2<=M<=N<=10^6) Должно вывестись: Выведите в одной строке через пробел все простые числа от M до N в порядке возрастания.Если таковых нет,то следует вывести "Absent". Пример: 2 5 выводиться: 2 3 5. Пример: 4 4 выводиться: Absent |
14.10.2011, 21:37 | #2 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
И что? Зачем вы выложили сюда это задание? В чем проблема? Что не получается? Что получается?
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
14.10.2011, 21:45 | #3 |
Новичок
Джуниор
Регистрация: 14.10.2011
Сообщений: 4
|
помогите с решением этой задачи.пожалуйста.нужно написать программу
|
14.10.2011, 22:04 | #4 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
кажись так ток не выводит если ничего нет но это сам додумаешь а я спать пошел))
Код:
Последний раз редактировалось Poma][a; 14.10.2011 в 22:07. |
14.10.2011, 22:32 | #5 |
Пользователь
Регистрация: 14.10.2011
Сообщений: 51
|
немножко подправил программу,все целые числа выдает,а вот если введешь например 5 5 все равно выводит числа.а как сделать,что бы выводилось Absent в таком случае?
|
14.10.2011, 22:37 | #6 |
Пользователь
Регистрация: 14.10.2011
Сообщений: 51
|
program EasyAndHard;
var m, n, sq, k : integer; begin ReadLn (n,m); for n := n to m do begin k := 2; sq := Trunc (sqrt(n)); while (n < 0) and (k <= sq) do Inc (k); if k <= Sq then Write (n,' ') else Write ( 'Absent '); end; end. а как вывести absent не знаю |
14.10.2011, 22:44 | #7 |
Новичок
Джуниор
Регистрация: 14.10.2011
Сообщений: 4
|
получилось,помогите с выводом Absent.пожалуйста
|
14.10.2011, 22:54 | #8 |
Пользователь
Регистрация: 29.09.2011
Сообщений: 23
|
введи еще одну переменную, присвой ей 0 и каждый раз, когда находишь простое число, прибавляй единицу (s:=s+1);
ну и потом если s больше нуля, то выводишь полученные числа, а если s равно нулю, то writeln('absent'); |
14.10.2011, 23:56 | #9 | |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
Цитата:
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
|
15.10.2011, 01:05 | #10 |
Новичок
Джуниор
Регистрация: 14.10.2011
Сообщений: 4
|
спасибо за помощь
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Простые числа | SanechekS | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 05.04.2011 15:51 |
Простые числа. Задача. | U_r0ck | Помощь студентам | 2 | 19.12.2010 19:50 |
задача Delphi про простые числа | Crysta | Помощь студентам | 0 | 07.12.2010 19:50 |
Простые числа | werser | Помощь студентам | 8 | 18.06.2008 07:24 |