Паскаль найти все простые числа меньшие заданного x

Question

Паскаль найти все простые числа меньшие заданного x

Answer 1

Var x,i,j,k:integer;
begin
write('x = ');
readln(x);
writeln('Простые числа:');
for i:=2 to x-1 do
 begin
 k:=0;
 for j:=2 to round(sqrt(i)) do
  if i mod j=0 then k:=k+1;
 if k=0 then write(i,' ');
 end;
end.

Пример:
x = 30
Простые числа:
2 3 5 7 11 13 17 19 23 29