1 / 1 / 0
Регистрация: 22.10.2014
Сообщений: 37
1

Построить новую последовательность, содержащую все простые числа исходной последовательности

29.10.2014, 15:33. Показов 1319. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана последовательность целых чисел ai. Построить новую последовательность, содержащую все простые числа исходной последовательности (единица не является простым числом).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.10.2014, 15:33
Ответы с готовыми решениями:

Дана последовательность чисел ai. Построить новую последовательность, содержащую все простые числа исходной последовательности.
procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Add(Edit1.Text); //Числа...

Построить новую последовательность, содержащую те числа исходной последовательности, младшая цифра которых 0
Разработать визуальную программу на языке C#, Ввести последовательность чисел ai. Построить новую...

Построить новую последовательность, содержащую те числа исходной последовательности, младшая цифра которых 0
Разработать визуальную программу на языке C# ввод последовательности данных в ListBox1, выполнение...

Получить новую последовательность X, выбросив из исходной все числа, большие заданного числа R
Как проверять и выкидывать элементы из массивов? Дана последовательность P i=1,2...n (n<=30)....

1
Эксперт Pascal/Delphi
6810 / 4567 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
29.10.2014, 17:13 2
Лучший ответ Сообщение было отмечено Rahmanur как решение

Решение

Основано на коде Kodzaev
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
const
  n=25;
var
  m,i, j, k: integer;
  a,b:array[1..n] of integer;
 
begin
  Writeln('Исходный массив:');
  for i := 1 to n do
    begin
      a[i]:=random(n)+1;
      Write(a[i]:3);
    end;
  Writeln;
  m:=0;
  Writeln('Массив простых чисел:');
  for i := 2 to n  do
  begin
    k := 0;
    for j := 2 to Round(Sqrt(i)) do
      if i mod j = 0 then
        k := 1;
    if k = 0 then
      begin
        m:=m+1;
        b[m]:=i;
        Write(b[m]:3);
      end; 
  end;
  readln;
end.
1
29.10.2014, 17:13
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.10.2014, 17:13
Помогаю со студенческими работами здесь

Получить новую последовательность Xi, выбросив из исходной все числа, большие заданного числа R.
Здравствуете, уважаемые программисты. Очень надо решить несколько задач на паскале. Были только...

Даны целые числа Получить новую последовательность, выбросив из исходной все члены со значением
Даны целые числа a1,..an Получить новую последовательность, выбросив из исходной все члены со...

Из исходной последовательности получить новую последовательность по заданному правилу
Из последовательности c1,c2,......cm, m<=15, получить последовательность x1,x2 ...по правилу ...

Вывести новую последовательность, состоящую из отрицательных членов исходной последовательности
Требуется ввести последовательность целых числе и проверить, есть ли среди них отрицательные. Если...

Построить новую последовательность, содержащую те элементы, у которых сумма делителей равна заданному X
Дана последовательность целых чисел ai и число X. Построить новую последовательность, содержащую...

Получить новую последовательность, где каждый элемент является близнецом элемента исходной последовательности
всем привет объясните зачем число К? зарание спосибо Дан массив А размерностью М и число К....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru