сервис вопросов и ответовОпределить все простые двузначные числа. Есть предположение, что решается именно так, помогите пожалуйста составить блок-схему. Program
10-11 класс|
|
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.
Elenalapaj
27 марта 2014 г., 3:31:11 (10 лет назад)
Смерть1992
27 марта 2014 г., 4:39:18 (10 лет назад)
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.
Моя быстрее работает :Р
77706777
27 марта 2014 г., 6:37:28 (10 лет назад)
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.
Ответить
Другие вопросы из категории
чему равен 120/8 в двоичной системе
варианты ответов
А) 00010000
В) 11100011
С) 00110011
Д) 01010101
Е) 00001111
Читайте также
1)составить блок-схему поиска двузначных чисел,таких,что если к сумме цифр этого числа прибавить квадрат этой суммы,то получится это число.
2)построить блок схему которая меняет порядок цифр числа на обратный. например было 12345,стало 54321.
Помогите, пожалуйста, составить алгоритм для следующей задачи: Вводятся четыре числа. Известно, что 3 из них равны, а 4-ое отличается от 3-ех других.
Нужно выдать число, которое отличается от других равных, при этом, используя ровно две операции сравнения. Я пытался решить эту задачу и через максимум-минимум, и через условия, но везде натыкался на грабли. Помогите, пожалуйста, разобраться. Заранее благодарю! Перед выставлением решения, рассмотрите следующие варианты: "2 4 4 4", "2 3 2 2 ", "-3 -3 -2 -3", "-4 -4 -4 -5".
Дано целое число k (1<=k<=180) и последовательность цифр 10111213...9899, в которой выписаны подряд подряд все двузначные числа. Определить
двузначное число, образованное парой цифр, в которую входит k-я цифра;
Примечание: величины строкового типа не использовать.
p.s объясните само задание, пожалуйста. Решение есть на яндексе.
1.Дано двузначное число.Определить: a.какая из его цифр больше,первая или вторая; b. одинаковы ли его цифры. 2. Дано двухзначное число.
Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.
Вы находитесь на странице вопроса "Определить все простые двузначные числа. Есть предположение, что решается именно так, помогите пожалуйста составить блок-схему. Program", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.