Вопрос по информатике:
Создайте множество, состоящее из простых чисел < 255 и
дающее при делении на 4 остаток 3. Напечатайте элементы
этого множества.
Пожаловаться
- 05.07.2018 20:46
- Информатика
- remove_red_eye 7116
- thumb_up 45
Ответы и объяснения 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
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
Пожаловаться
- 06.07.2018 05:22
- thumb_up 3
// 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
// Внимание! Если программа не работает, обновите версию!
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
Пожаловаться
- 07.07.2018 02:53
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы