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

Построить массив из первых N простых чисел

25.04.2014, 02:05. Просмотров 897. Ответов 1
Метки нет (Все метки)

Построить массив из первых N простых чисел (1≤N≤100).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2014, 02:05
Ответы с готовыми решениями:

Найти 100 первых простых чисел
Найти 100 первых простых чисел

Нахождение первых 100 простых чисел
И ещё написал программу по нахождению первых 100 простых чисел, но она что-то...

Построить массив состоящий из 15 первых четных чисел Фибоначчи, используя рекурсивную функцию их нахождения.
№1.Дан массив A состоящий из одно, двух и трехзначных чисел. Используя функцию...

Составить программу вывода на экран простых чисел их первых N натуральных чисел..
Составить программу вывода на экран простых чисел их первых N натуральных...

Вложеные циклы.Составить программу вывода на экран простых чисел из первых N натуральных чисел используя решето Эратосфена.
Составить программу вывода на экран простых чисел из первых N натуральных чисел...

1
Puporev
Модератор
54732 / 42133 / 29091
Регистрация: 18.05.2008
Сообщений: 99,455
25.04.2014, 07:09 2
Лучший ответ Сообщение было отмечено antonyskarulis как решение

Решение

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
29
uses crt;
const max=100;
var n,i,k,d,x,y:integer;
    a:array[1..max] of integer;
begin
repeat
write('Введите размер масива от 1 до ',max,' n=');
readln(n);
until n in [1..max];
k:=1;
a[k]:=2; //2 первое простое число
x:=3;//проверяем все нечетные
while k<n do //пока не набрали n простых чисел
 begin
  d:=0;//пусть очередное простое
  y:=3; //начнем с 3
  while(y*y<=x)and(d=0)do //пока y^2 не больше x и не делится на y
  if x mod y=0 then d:=1 //если делится, то не простое
  else inc(y,2); //иначе делим на очередное нечетное
  if d=0 then //если простое
   begin
    inc(k); //считаем
    a[k]:=x //пишем в массив
   end;
  inc(x,2)//проверяем следующее нечетное
 end;
for i:=1 to n do //выводим массив
write(a[i]:4)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2014, 07:09

найти К первых простых чисел в арифмметической прогрессии: 21 31 41 51 61.....
ввести натуральное число К. найти К первых простых чисел в арифмметической...

Дано натуральное число N. Найти сумму N первых простых чисел
Дано натуральное число N. Найти сумму N первых простых чисел

Построить вектор В, где B(i) - количество простых чисел в i-ой строке.
Ввести размер прямоугольной матрицы и значения ее элементов. Построить вектор...


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

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

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