Создайте множество, состоящее из простых чисел < 255 и дающее при делении ** 4 остаток 3....

Question

Создайте множество, состоящее из простых чисел < 255 и
дающее при делении на 4 остаток 3. Напечатайте элементы
этого множества.

Answer 1

// 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<br>      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

Comments

сам начинаю по своему делать и не могу прийти к правильному решению . Не могу понять , все вроде бы верно , но когда я считаю при помощи "ручки и бумажки" чисел больше получается. например, в такой последовательности - 7 11 15 19 23 27 31 35 и т.д. при делении на 4 остаток 3 получается...Запутался.

---

Спасибо!

Answer 2

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