Вывести на экран все простые числа до заданного числа м (включительно)

Question

Информатика

Алексейка

8 мая, 12:56

Вывести на экран все простые числа до заданного числа м (включительно)

+1

Ответы (1)

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

Никанор · Answer 1

Program prost;

vari, m, j, k: integer;

begin

readln (m) ;

for i: = 2 to m do

begin

k: = 0;

for j: = 2 to m-1 do

if i mod j = 0 then

k:=k+1;

if k<2 then

write (i,' ') ;

end;

end.