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

162

428

Посмотреть ответы 3

Ответы на вопрос:

soloveva2506

Информатика

4,7(90 оценок)

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

bhcfydytfiy

Информатика

4,6(40 оценок)

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 43131 127 211 31 23 199 19 107 103 191 11 7 3 179