Помогите написать программу (Pascal)
Заполнить массив заданной длины различными простыми числами начиная с 2. Натуральное число, большее единицы, называется простым, если оно делится только на себя и на единицу.
Заполнить массив заданной длины различными простыми числами начиная с 2. Натуральное число, большее единицы, называется простым, если оно делится только на себя и на единицу.
More Questions From This User See All
Answers & Comments
var
a: array of integer;
i, n, m: integer;
function simple(x:integer): boolean;
var
i: integer;
begin
Simple := false;
if x < 2 then exit;
if x mod 2 = 0 then exit;
i := 3;
while i <= sqrt(x) do
begin
if x mod i = 0 then exit;
i +=2;
end;
Simple := true;
end;
begin
write('Количество элементов массива :');readln(m);
SetLength(a, m);
while n <= m - 1 do
begin
if simple(i) then begin
a[n] := i;
n +=1;
end;
i +=1;
end;
a.println;
end.
Тестовое решение:
Количество элементов массива :25
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97