найти все простые числа из промежутка от 100 до 200

Question

помогите, пожалуйста, составить программу, буду очень благодарна, попрошу как можно быстрее
Каким образом получены эти числа компютером в паскале

Диана · Accepted Answer

var x,i: integer;
 begin
 for i:=100 to 200 do

begin

for j:=1 to i do if (i mod j)=0 then x:=x+1;

if x=2 then writeln(i);

x:=0;

end;

end.

Юлия Козлова · Answer

Опять же - многие математические последовательности уже давно посчитаны и находятся в свободном доступе. Поэтому нам совершенно незачем тратить машинное время и мы снова можем написать программу из одной строки:

writeln('101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199');

writeln('101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199');

Almaz · Answer

writeln('101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199');