Var i,j,k: integer;
<span> a: set of integer;
</span><span>begin
</span><span> i:=3; a:=[];
</span><span> repeat
</span><span> k:=0;
</span><span> for j:=2 to trunc(sqrt(i))+1 do
</span><span> if (i mod j)=0 then
</span><span> begin
</span><span> k:=1;
</span><span> break;
</span><span> end;
</span><span> if k=0 then a:=a+[i];
</span><span> i:=i+4;
</span><span> until i>256;
</span><span> writeln(a);
</span><span>end.
</span><span>83 79 167 163 251 71 67 151 239 59 139 227 47 223 43
131 127 211 31 23 199 19 107 103 191 11 7 3 179
</span><span>
</span>
Программа находит значение переменной
s:=s+15
for k:=1 to 6 - 6 шагов
при каждом шаге к значению прибавляется 15,за 6 шагов прибавится 15*6=90
это число и выводится программой
Ответ: 90
Вибач мені потрібні пункти