Напишите программу, которая выводит все простые числа в диапазоне от 2 до N включительно ( 2 ≤ N ≤ 100000 ).

анч21 анч21    1   31.01.2021 21:40    5

Ответы
danveressov danveressov  02.03.2021 21:50

var

N,i,k,x:integer;

begin

readln(N);

for i:=2 to N do

begin

 x:=0;  

for k:=2 to trunc(sqrt(i)) do

   if i mod k=0 then  

   x:=1;

if x=0 then  

write(i,' ');

end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика