Вопрос по информатике:
Определить все простые двузначные числа. Есть предположение, что решается именно так, помогите пожалуйста составить блок-схему.
Program example14;
Var i:
integer; function prost(i: integer): boolean;
var j:integer;
begin prost := true; i:=abs(i); for j := 2 to (i div 2) do if (i mod j = 0) then prost := false; end;
begin for i := 10 to 99 do if prost(i) = true then write(i:5);
readln(i);
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 11.07.2018 02:31
- Информатика
- remove_red_eye 8127
- thumb_up 78
Ответы и объяснения 2
var prost: array [1..100] of integer;
i, max, n, j: integer;
is_prost:bool;
Begin
max := 99;
prost[1] := 2;
n := 1;
for i := 2 to max do begin
is_prost := true;
for j := 1 to n do begin
is_prost := is_prost and not (i mod prost[j] = 0);
end;
if is_prost then begin
n := n + 1;
prost[n] := i;
end;
end;
for i := 1 to n do
if prost[i] > 9 then write(prost[i], ' ');
End.
- 12.07.2018 18:39
- thumb_up 11
const
n = 99;
var
P:array[2..n] of boolean;
i, pr:integer;
flag:boolean;
begin
for i := 2 to n do
P[i] := true;
pr := 2;
flag := true;
while flag do
begin
i := 2 * pr;
while i <= n do
begin
P[i] := false;
i := i + pr;
end;
flag := false;
for i := pr + 1 to n do
if P[i] then
begin
pr := i;
flag := true;
break;
end;
end;
for i := 10 to n do
if P[i] then
write(i, ' ');
readln;
end.
Моя быстрее работает :Р
- 13.07.2018 01:19
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.