Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 07.11.2016
Сообщений: 8

Найдите 5 простых чисел, больше чем a

21.02.2017, 23:45. Показов 1005. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
2.Дано число a . Найдите 5 простых чисел, больше чем a.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
21.02.2017, 23:45
Ответы с готовыми решениями:

Дано число А. Найдите 5 простых чисел которые больше А.
Дано число А. Найдите 5 простых чисел которые больше А.(с помощью цикла с пред условием)

Найти элемент в массиве реальных чисел и его номер среди чисел, больше чем 7.8 и меньше чем 50.2
Найти элемент массиву реальных (дійсних) чисел (12.37, 2.43, 16.55, 0.81, 0.32, 1.345, -12.18, 0.15, 4.314, 1.29, 54.38, 0.214, 3.837,...

Найти элемент в массиве реальных чисел и его номер среди чисел, больше чем 7.8 и меньше чем 50.2
Найти элемент массиву реальных (дійсних) чисел (12.37, 2.43, 16.55, 0.81, 0.32, 1.345, -12.18, 0.15, 4.314, 1.29, 54.38, 0.214, 3.837,...

1
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
22.02.2017, 08:02
Лучший ответ Сообщение было отмечено Dasha 2013 как решение

Решение

Взято отсюда:
Найти первое простое число, больше заданного n

Pascal
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
var
  k, i, j, s, n: integer;
 
begin
  write('Введите число a: ');
  readln(n);
  k := 1;
  while k <= 5 do
  begin
    i := 1;
    while true do 
    begin
      s := 0;
      for j := 1 to n + i do
        if (n + i) mod j = 0 then 
          s := s + 1;
      if s = 2 then
      begin
        writeln('Простое число большее, чем a: ', n + i);
        break;
      end;
      i := i + 1;
    end;
    n := n + i;
    k := k + 1;
  end;
  writeln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
22.02.2017, 08:02
Помогаю со студенческими работами здесь

Найдите сумму простых чисел до N
Задано целое число N. Найдите сумму простых чисел до N. Простое число это число, которое делится только на 1 и на самого себя. Формат...

Найдите сумму простых чисел до N
Доброго времени суток друзья! В общем нужно решить 6 задач. Кто может проявить инициативу? Естественно за вознаграждение. Вот: 6....

Найдите количество простых чисел, имеющих пару
Назовём парой простого числа p такое простое число x, что |p − x| = 2 . На отрезке найдите количество простых чисел, имеющих пару. ...

Найдите на сколько положительных элементов в массиве больше, чем отрицательных
Дан массив из n элементов. Каждый элемент может принимать целочисленные значения от -100 до 1000. Найдите на сколько положительных...

Найдите на сколько положительных элементов массива больше, чем отрицательных
Дан массив из n элементов. Каждый элемент может принимать целочисленные значения от -100 до 1000. Найдите на сколько положительных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой
Programma_Boinc 10.04.2026
Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой Если на Windows стоит дискретная NVIDIA или AMD — можно отдать её вычислительную мощность реальным исследованиям. . . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru