IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Подскажите, Надо составить массив из составных чисел...
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


надо составить массив из n чисел, которые должны быть составными и >40... пробовал много вариантов... сначало хотел отделить составные числа ползуясь их четностью.. кое че получилось но в массив никак не могу их сунуть отдельно составные числа прощитал но.... с массивом проблемки... мучаюсь 2 с лишним часа уже просто голова не варит. подскажите пожалуйста путь решения. Вот последний вариант решения задачи после которой уже не могу даже простую ошибку найти..


Код
program no1;
var n,k,i,j:integer; t:boolean;
x: array [1..100] of integer;
y: array [1..100] of integer;
begin
readln (n);
for k:=1 to n do
begin
for i:=41 to (41+2*k) do
begin
t:=true;
for j:=2 to (x[i]-1) do
if i mod j=0 then
begin
t:=false;
break end;
if t=true then
x(k):=j;
end;
writeln ('x[k]='x(k));
end;
end.


 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Составное число

пишешь функцию, которая проверяет, простое-ли число (на форуме есть реализации, есть она и в FAQ)

ну а потом

randomize;
for i := 1 to n do begin
repeat
value := 41 + random(100);
until not simple(value);
x[i] := value;
end;
end;


где simple(value) вернет true, если value - простое.

Сообщение отредактировано: klem4 -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.09.2020 5:14
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name