Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Найти сумму четных и количество нечетных элементов http://www.cyberforum.ru/pascalabc/thread1633692.html
Дан массив из 20 целых чисел из диапазона [10,100). Найти в нем сумму четных и количество нечетных элементов
Pascal ABC Строка: Проверка на корректную расстановку скобок Дана строка, содержащая латинские буквы и скобки трех видов ( ), { }, . Если скобки расставлены правильно (то есть каждой открывающей соответствует закрывающая скобка того же вида), то вывести 0. В... http://www.cyberforum.ru/pascalabc/thread1633513.html
Пройтись по всем строкам Pascal ABC
Помогите, пожалуйста. Я не могу найти информацию о том, как пройти все строки до конца. То есть натыкаясь на true он прекращает работу, хотя в следующей строке есть еще одно подходящее под задание...
Подсчитать сумму тех элементов массива, модули которых являются простыми числами Pascal ABC
Дан целочисленный массив размера n x m с элементами из диапазона [0,20). Подсчитать сумму тех элементов массива, модули которых являются простыми числами
Pascal ABC Посчитать сумму заданных элементов массива http://www.cyberforum.ru/pascalabc/thread1633428.html
Дан целочисленный массив размера n x m и два числа a и b. Посчитать сумму элементов массива, принадлежащих отрезку .
Pascal ABC Составить рекурсивную функцию вычисления факториала целого неотрицательного числа n Составить рекурсивную функцию вычисления факториала целого неотрицательного числа n. подробнее
Cyborg Drone
Модератор
5754 / 3368 / 2511
Регистрация: 17.08.2012
Сообщений: 10,816
07.01.2016, 21:28 0

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

07.01.2016, 21:28. Просмотров 901. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено жкх как решение

Решение

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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.01.2016, 21:28
Готовые ответы и решения:

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

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

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

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

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

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