Создайте множество, состоящее из простых чисел меньше 255 и дающее при делении на 4 остаток 3. Напечатайте элементы этого множества.
Создайте множество, состоящее из простых чисел < 255 и
дающее при делении на 4 остаток 3. Напечатайте элементы
этого множества.
Гость
Ответ(ы) на вопрос:
Гостьvar i,j,k: integer;
a: set of integer;
begin
i:=3; a:=[];
repeat
k:=0;
for j:=2 to trunc(sqrt(i))+1 do
if (i mod j)=0 then
begin
k:=1;
break;
end;
if k=0 then a:=a+[i];
i:=i+4;
until i>256;
writeln(a);
end.
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
Гость// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:set of integer:=[];
for var i:=1 to 254 do begin
var flag:=True;
var j:=2;
var r:=round(sqrt(i));
while flag and (j<=r) do
if i mod j = 0 then flag:=false
else j+=1;
if flag then
if i mod 4=3 then s+=[i]
end;
foreach var x in s do Print(x);
end.
Результат
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
Не нашли ответ?
Похожие вопросы