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

дающее при делении на 4 остаток 3. Напечатайте элементы

этого множества.

Question

Информатика

Дана

8 июня, 13:55

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

дающее при делении на 4 остаток 3. Напечатайте элементы

этого множества.

+2

Ответы (1)

Знаете ответ на вопрос?

Авдуля · Answer 1

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

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

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

дающее при делении на 4 остаток 3. Напечатайте элементы

этого множества.