Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Митюнька
0 / 0 / 0
Регистрация: 31.07.2012
Сообщений: 31
1

Среди чисел 1,2,...,n найти те, которые являются простыми числами

16.10.2012, 19:19. Просмотров 799. Ответов 2
Метки нет (Все метки)

Дано натуральное число n. Среди чисел 1,2,...,n найти те, которые являются простыми числами. (Определить процедуру, позволяющую распознавать простые числа.)
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.10.2012, 19:19
Ответы с готовыми решениями:

Найти сумму элементов массива, которые являются простыми числами и принадлежат интервалу от 5 до 1000
дан одномерный массив A, состоящий из N элементов. Найти сумму элементов...

Вывести на экран индексы тех элементов одномерного массива, которые являются простыми числами
Составьте программу вывода на экран индексов элементов одномерного массива b(n)...

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

Найти среди чисел те, которые являются квадратами некоторого числа m
Даны целые положительные числа a1, a2, …, an. Найти среди них те, которые...

Массивы: Найти среди чисел те, которые являются квадратами некоторого числа m
Даны целые положительные числа а1, а2,..an. Найти среди них те, которые...

2
CodeR
Фрилансер
3384 / 2785 / 3000
Регистрация: 08.02.2012
Сообщений: 6,832
Записей в блоге: 1
17.10.2012, 14:45 2
Лучший ответ Сообщение было отмечено Митюнька как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function Pr(n:integer):boolean;
Var b:boolean;
    i:byte;
Begin
    b:=true;
    For i:=2 to n div 2 do
     if n mod i = 0 then b:=false;
    Pr:=(b)and(n<>1);
End;
Var n,i:integer;
Begin
    write('Введите N: ');readln(n);
    For i:=1 to n do
     if Pr(i) then write(i,' ');
    readln;
End.
2
кот Бегемот
Платежеспособный зверь
8502 / 3939 / 1536
Регистрация: 28.10.2009
Сообщений: 10,229
04.12.2013, 18:53 3
Цитата Сообщение от CodeR Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function Pr(n:integer):
boolean; Var 
b:boolean; 
i:byte; 
Begin 
b:=true; 
For i:=2 to n div 2 do i
f n mod i = 0 then b:=false; 
Pr:=(b)and(n<>1); 
End; 
Var 
n,i:integer; 
Begin 
write('Введите N: ');
readln(n); 
For i:=1 to n do 
if Pr(i) then write(i,' ');
 readln; 
End
.

Типичный пример говнокода по принципу "на и отвали". Нормальный кодер задумался бы, что после корня из n делители уже можно не искать, поскольку они найдены ранее, а значит перебор можно резко сократить.
Но ведь парень за деньги работает...
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.12.2013, 18:53

Определить сумму чисел, которые не превышают N и не являются простыми
Здесь же делать нечего, а у меня ничего не получается :( Write('N=');...

Найти количество столбцов, в которых все элементы являются простыми числами
Составить программу согласно следующему условию: дана целочисленная матрица А,...

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


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

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

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