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

Question

Информатика

Демид

30 апреля, 22:18

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

+3

Ответы (1)

Знаете ответ на вопрос?

Роберт · 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