Помощь - Поиск - Пользователи - Календарь
Полная версия: Подскажите
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ceccil
5.12.2007 12:22
надо составить массив из 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.


klem4
5.12.2007 13:48
Составное число

пишешь функцию, которая проверяет, простое-ли число (на форуме есть реализации, есть она и в 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 - простое.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.