Напишите программу, которая выводит все простые - вопрос №216605076 от lol1337rus 31.05.2023 15:43

Question

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

lol1337rus · Answer

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....