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

Найти все элементы массива, сумма цифр которых является простым числом.

25.03.2012, 15:10. Показов 1335. Ответов 1
Метки нет (Все метки)

1)Найти все элементы массива, сумма цифр которых является простым числом.
2)Найти такой элемент массива, сумма цифр в котором максимальна, а сам элемент является простым числом.
Напишите программы, буду благодарен
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.03.2012, 15:10
Ответы с готовыми решениями:

Найти все трёхзначные числа, у которых сумма цифр является составным числом
done...

Найти количество строк матрицы, сумма элементов которых является простым числом
1. Дана матрица А(N,M) натуральных чисел. Найти количество строк, сумма элементов которых является...

Найти все простые числа, не превосходящие заданного числа, сумма цифр которых, также является простым числом
Срочно нужен код программы в C++ (желательно с комментариями). Я бы разобрался и сам, но на это...

Цикл: Определить все числа, принадлежат промежутку [10,99], сумма цифр которых является простым числом.
Помогите решить задачу: "Определить все числа, принадлежат промежутку , сумма цифр которых является...

1
trainspotting
1086 / 486 / 384
Регистрация: 11.11.2010
Сообщений: 773
25.03.2012, 15:55 2
Лучший ответ Сообщение было отмечено 4eByR как решение

Решение

Найти все элементы массива, сумма цифр которых является простым числом.
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
const
  maxSize=100;
type
  intVector=array[1..maxSize] of integer;
var
  a:intVector;
  i,n:integer;
function IsPrime(x:integer):boolean;
var
  i:word;
begin
  if (x<2) or (x<>2) and (x mod 2=0) or (x mod 10=5) and (x>10) then
    begin
      IsPrime:=false;
      exit;
    end;
  i:=3;
  while (i*i<x) and (x mod i<>0) do
    inc(i,2);
  IsPrime:=i*i>x;
end;
function SumDigits(x:integer):word;
var
  s:word;
begin
  x:=abs(x);
  s:=0;
  while x<>0 do
    begin
      inc(s,x mod 10);
      x:=x div 10;
    end;
  SumDigits:=s;
end;
begin
  repeat
    write('Размер массива, не более ',maxSize,'=');
    readln(n);
  until n in [1..maxSize];
  randomize;
  writeln('Исходный массив');
  for i:=1 to n do
    begin
      a[i]:=-100+random(201);
      write(a[i]:5);
    end;
  writeln;
  {Seek}
  writeln('Элементы массива, сумма цифр кот. явл. простым числом:');
  for i:=1 to n do
    if IsPrime(SumDigits(a[i])) then
      write(a[i]:5);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.03.2012, 15:55

Отсортировать по возрастанию только элементы массива, сумма цифр целой части которых является чётным числом
Привет! можете помочь пожалуйста...

На отрезке [a, b] найти все пары соседних чисел, произведение которых является простым числом
На отрезке найти все пары соседних чисел, произведение которых является простым числом

Вывести все 4-значные числа, у которых сумма цифр является однозначным числом
6.Вывести все 4-значные числа, у которых сумма цифр является однозначным числом.

Массив: Напечатать в порядке возрастания элементы, сумма цифр в которых является пpостым числом.
Здравствуйте, помогите пожалуйста решить задачку. Буду очень признательна. Напечатать в порядке ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.