Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
жкх
0 / 0 / 0
Регистрация: 03.12.2015
Сообщений: 22
1

Найти элементы, являющиеся простыми числами

07.01.2016, 20:10. Просмотров 886. Ответов 1
Метки нет (Все метки)

Дан массив из 25 целых различных чисел из диапазона [0,40). Найти в нем все элементы, являющиеся простыми числами.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.01.2016, 20:10
Ответы с готовыми решениями:

В одномерном массиве найдите все элементы, являющиеся простыми числами
Дан массив из 25 целых различных чисел из диапазона [0,40). Найдите в нем все...

Напечатать элементы массива являющиеся двухзначными числами
1)дан массив А(10).напечатать элементы массива являющиеся двухзначными...

Упорядочьте по возрастанию только: Элементы с порядковыми номерами, являющимися простыми числами
Упорядочьте по возрастанию только: Элементы с порядковыми номерами, являющимися...

Вывести в строку только те элементы числовой последовательности, которые являются простыми числами
Вывести в строку, через пробел в прямом порядке только те элементы числовой...

Упорядочить по возрастанию модулей элементы целочисленного массива, расположенные между третьим и пятым простыми числами
Program M1; Var A : Array Of Integer; i,j,q, p, x: Integer; Begin For...

1
Cyborg Drone
Модератор
5398 / 3202 / 2450
Регистрация: 17.08.2012
Сообщений: 10,274
07.01.2016, 21:28 2
Лучший ответ Сообщение было отмечено жкх как решение

Решение

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
const m = 25;
 
var a: array [1..m] of integer;
    i: integer;
    b: boolean;
 
begin
  randomize;
  writeln('Массив:');
  for i := 1 to m do
    begin
      a[i] := random(41);
      write(a[i]:3)
    end;
  writeln;
  b := false;
  writeln('Простые числа:');
  for i := 1 to m do
    if a[i] in [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37]
      then begin
        write(a[i]:3)
        b := true;
      end;
  if b then write('Не найдены.');
  writeln;
  readln
end.
Программа рабочая, и результат выдаёт верный, но больше трояка не поставят, так как все возможные простые числа тупо заданы в программе. На пятёрку подрихтуйте программу так:

- Замените
Pascal
19
    if IsPrime(a[i])
- Вставьте выше слова const функцию IsPrime, взять её можно, например, отсюда: Алгоритм, который устанавливает – является ли число простым, ну, или ещё откуда-нибудь, главное, чтобы функция компилировалась в Вашем диалекте паскаля.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.01.2016, 21:28

Дан массив натуральных двузначных чисел. Проверить, все ли его элементы являются простыми числами.
составить программу для решения задач: 5. Дан массив натуральных двузначных...

Найти члены последовательности, имеющие чётные порядковые номера и являющиеся чётными числами
Даны натуральные числа {n}_{},{a}_{1},{a}_{2}, ...,{a}_{n}.Найти члены...

Не могу найти ошибку, заполнить массив тридцатью первыми простыми числами
Пытался заполнить массив тридцатью первыми простыми числами, но, видимо,...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru