Записать программу формирования и выделения n элементов паскаль n меньше =1000 первые n простых чисел
Записать программу формирования и выделения n элементов паскаль n<=1000 первые n простых чисел
Гость
Ответ(ы) на вопрос:
Гостьfunction Simple(a: integer): boolean;
begin
result := true;
for i: integer := 2 to (a div 2) do
if (a mod i = 0) then
begin
result := false;
break;
end;
end;
const
n = 10;
var
i: longint := 1;
j: longint;
a: array [1..n] of longint;
begin
while (a[n] = 0) do
begin
while (a[i] = 0) do
begin
j += 1;
if (Simple(j)) then
begin
a[i] := j;
end;
end;
i += 1;
end;
for i := 1 to n do
write(a[i], ' ');
end.
Не нашли ответ?
Похожие вопросы