Найти все простые числа от 1 до N

I_am_NOOB

Значение N пользователь задает с клавиатуры. N>1. Простым является целое число,которое делится ттолько на 1 и само на себя.
4 ответа

I_am_NOOB

function prost(k: integer): boolean;
var
  i: integer;
  f: boolean;
begin
  if k > 1 then f := true;
  for i := 2 to k div 2 do
    if k mod i = 0 then f := false;  
  prost := f
end;
 
 
var
  n, i: integer;
 
begin
  write('Введите n: ');
  readln(n);
  for i := 1 to n do 
    if prost(i) then write(i:6);
  readln
end.


I_am_NOOB

function prost(k: integer): boolean;...end.
А можно как нибудь без function prost(k: integer): boolean;


I_am_NOOB

I_am_NOOB, можно, только скопируй код из нее в программу. И переменные не забудь объявить.


I_am_NOOB

uses crt;
var
 i, j, n, k: integer;
 f: boolean;
begin
read(n);
k:= 0;
f:= true;
for i:= 3 to n do
begin
   for j:= 2 to i-1 do
   begin
      if ((i mod j) = 0) then
         f:= false;
   end;
   if f then
    inc(k);
   f:= true;
end;
writeln(k);
readkey;
end.