Сформировать массив простых чисел, не больших заданного натурального числа N. (программа Паскаль)
Вопрос посетителя
Сформировать массив простых чисел, не больших заданного натурального числа N.
Ответ эксперта
uses crt;
var i,n:integer;
begin
clrscr;
writeln(‘vvedite n’);
readln(n);
for i:=1 to n do
if (i = 2) or (i = 3) or (i = 5 ) or (i = 7) then write(i:3) else
if (i mod 2 <> 0) and (i mod 3 <> 0 ) and (i mod 5 <> 0) and (i mod 7 <> 0) then write(i:3);
readkey;
end.