даны натуральные числа a,b. Получить все простые числа p, удовлетворяющие неравенствам a<p<b.

@Gypka[for]mozga · Регистрация: 19.06.2011

Студворк — интернет-сервис помощи студентам

Нужно срочно решить задачку:

даны натуральные числа a,b. Получить все простые числа p, удовлетворяющие неравенствам a<p<b.

deathNC · 23.06.2011, 12:59

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
// функция проверки числа - является ли Value простым числом
function IsPlaneNumeral(Value: Integer): Boolean;
var
  i: Integer;
begin
  Result := true;
  for i := 2 to Round(Sqrt(Value)) do
    Result := Result and (Value mod i <> 0);
end;
 
...
var
  i: Integer;
begin
  Memo1.Clear;
  for i := a + 1 to b - 1 do
    If IsPlaneNumeral(i) then
      Memo1.Lines.Add(IntToStr(i));
end;

Вроде так, если не ошибся

@Gypka[for]mozga · 23.06.2011, 13:04 **[ТС]**

А можно как нибудь по проще используя обычные циклы с постусловием,предусловием и параметром(While/do;If/then/else;repeat/until;For/do;For/to) Не используя других ...т.к. преподователь требует, чтобы были только те которые изучали

@Gypka[for]mozga · 23.06.2011, 13:07 **[ТС]**

И еще должно так быть водятся a и b с клавиатуры(вывод на экран обязательно). К примеру 1 и 5 и он должен вывести на экран только промежуток между этими числами,который удовлетворяет установки тоесть 2,3,4

deathNC · 23.06.2011, 13:08

Gypka[for]mozga,

А я какие по-твоему использовал? for/do, и в твоём списке они есть!

Добавлено через 1 минуту
Так тебе весь проект написать чтоль?

@Gypka[for]mozga · 23.06.2011, 13:10 **[ТС]**

Напиши пожалуйста..может я просто не до понимаю

@Stohan · 23.06.2011, 13:21

Сообщение от Gypka[for

А можно как нибудь по проще используя обычные циклы с постусловием,предусловием и параметром(While/do;If/then/else;repeat/until;For/do;For/to) Не используя других ...т.к. преподователь требует, чтобы были только те которые изучали

Я вот сел и думал сделать, но deathNC, уже сделал и оч круто) я думал с помощью Решета Эратосфена сделать, но это грамоздко по сравнению с тем, как уже исполнено!)

@Gypka[for]mozga · 23.06.2011, 13:24 **[ТС]**

Сообщение от Stohan

Я вот сел и думал сделать, но deathNC, уже сделал и оч круто) я думал с помощью Решета Эратосфена сделать, но это грамоздко по сравнению с тем, как уже исполнено!)

Уфф Решета Эратосфена меня за это препод просто проглотит)))Мы просто прошли циклы и он ооочень спрашивает чтоб только то , что прошли....За каждое новое слово голову откручивает)

deathNC · 23.06.2011, 13:58

Вот проект прикрепил. Уж как проще это можно сделать, я не знаю...

11.01.2012, 15:26

нам тож такое задание задали..) думал посматрю в инете скопирую...долго искал но ничего не нашёл подходящего ...ну и после пары дней размышлений составил програмку, вроде рабочую...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program pr1;
 
uses crt;
 
var a,b,p,i: integer;
    pr:boolean;
    
procedure vvod;
begin
    repeat
    write ('Введите а=');
    readln (a);
    write ('Введите b=');
    readln (b);
    until (a>0) and (b>0) and (a<=b);
end;
 
procedure telo;
begin
    for p:=a to b do
 
    begin
        pr:= true;
        for i:=2 to p div 2 do
        if p mod i = 0 then
        
        begin
            pr:=false;
            break;
        end;
 
        if pr then writeln('p=',p)
 
    end;
end;
 
begin
vvod;
telo;
end.

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@Gypka[for]mozga 2 / 2 / 3 Регистрация: 19.06.2011 Сообщений: 82

	даны натуральные числа a,b. Получить все простые числа p, удовлетворяющие неравенствам a<p<b. 23.06.2011, 12:52. Показов 4258. Ответов 9 Метки нет (Все метки) Нужно срочно решить задачку: даны натуральные числа a,b. Получить все простые числа p, удовлетворяющие неравенствам a<p<b. 0

@Gypka[for]mozga 2 / 2 / 3 Регистрация: 19.06.2011 Сообщений: 82
	23.06.2011, 13:04 [ТС]
	А можно как нибудь по проще используя обычные циклы с постусловием,предусловием и параметром(While/do;If/then/else;repeat/until;For/do;For/to) Не используя других ...т.к. преподователь требует, чтобы были только те которые изучали 0

@Gypka[for]mozga 2 / 2 / 3 Регистрация: 19.06.2011 Сообщений: 82
	23.06.2011, 13:07 [ТС]
	И еще должно так быть водятся a и b с клавиатуры(вывод на экран обязательно). К примеру 1 и 5 и он должен вывести на экран только промежуток между этими числами,который удовлетворяет установки тоесть 2,3,4 0

deathNC 1905 / 1016 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	23.06.2011, 13:08
	Gypka[for]mozga, А я какие по-твоему использовал? for/do, и в твоём списке они есть! Добавлено через 1 минуту Так тебе весь проект написать чтоль? 0

@Gypka[for]mozga 2 / 2 / 3 Регистрация: 19.06.2011 Сообщений: 82
	23.06.2011, 13:10 [ТС]
	Напиши пожалуйста..может я просто не до понимаю 0