Запишите  на природном языке метод, выполняющий поиск количества обычных чисел в

Запишите на природном языке метод, выполняющий поиск количества простых чисел в данном целочисленном массиве из 50 частей.
Pascal

Задать свой вопрос
Карнизова Софья
Оп-па! Обнуляем счетчик. Каждое число из массива проверяем на простоту по алгоритму Евклида. Если оно обычное, добавляем +1 в счетчик. В конце значение счетчика выводим.
1 ответ
const N=50;
var a : array [1..N] of boolean;
x,y, sim : integer;
begin 

sim:=0;
a[1] := false;
for x:=2 to N do a[x] := true;
 for x:= 2 to N div 2 do
    for y:= 2 to N div x do
      a[x*y] := false;
 for x:=1 to N do
     if a[x] then sim:=sim+1;
writeln(sim);
end.
Вадим Шлейнин
а не легче ли отыскать все простые числа
Павел
const N=50;var a : array [1..N] of boolean;x,y, sim : integer;begin sim:=0;a[1] := false; for x:=2 to N do a[x] := true; for x:= 2 to N div 2 do    for y:= 2 to N div x do      a[x*y] := false; for x:=1 to N do     if a[x] then writeln(x);end.
Алена Галиморданова
так будут все простые числа
Левисон Яна
Все обыкновенные найти не легче, поэтому что эти 50 частей массива могут содержать значения в очень большом диапазоне.
Jelina Marionova
Поэтому придется отыскать поначалу значение наибольшего элемента, позже сделать массив всех обычных чисел в спектре от 1 до отысканного максимума и для каждого элемента исходного массива инспектировать, не содержится ли он в массиве простых. Т.е. считать будет быстрее, но код окажется значительно огромным.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт