Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Ленка23
1 / 1 / 0
Регистрация: 23.05.2013
Сообщений: 28
1

Дан массив натуральных двузначных чисел. Проверить, все ли его элементы являются простыми числами.

26.06.2013, 23:13. Просмотров 1028. Ответов 1
Метки нет (Все метки)

составить программу для решения задач:
5. Дан массив натуральных двузначных чисел. Проверить, все ли его элементы являются простыми числами.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2013, 23:13
Ответы с готовыми решениями:

Дан массив А, состоящий из n натуральных чисел. Определите количество элементов, являющихся простыми числами
Дан массив А, состоящий из n натуральных чисел. Определите количество элементов, являющихся...

Дан двумерный массив. Вывести позиции элементов, которые являются простыми числами.
Я студентка-заочница и нужна помощь. Решите задачку: Дан двухмерный массив T. Вывести позиции...

Дана последовательность натуральных чисел,вычислить сумму тех из них,порядковые номера которых являются простыми числами
Нужно написать такую программу. Дана последовательность натуральных чисел,вычислить сумму тех из...

Создать массив, элементы которого являются простыми числами и расположены до минимального элемента в файле
задача: Взяв за основу файл целых чисел, создать массив, элементы которого являются простыми...

Составить массив из номеров строк, все элементы которых являются простыми числами
Дана матрица N x M. Составить массив из номеров строк, все элементы которых являются простыми...

1
MicM
825 / 484 / 324
Регистрация: 29.12.2009
Сообщений: 1,106
Завершенные тесты: 1
26.06.2013, 23:48 2
Лучший ответ Сообщение было отмечено Ленка23 как решение

Решение

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
const
  n=15;
var
  a:array [1..n] of integer;
  i,j,k,l:integer;
begin
  randomize;
  k:=0;
  l:=0;
  for i:=1 to n do
   begin
    write ('A[',i,'] = ');
    readln(a[i]);
    if a[i] mod 2 <> 0 then
     begin
      for j:=2 to a[i] div 2 do
       if a[i] mod j = 0 then k:=k+1;
      if k=0 then l:=l+1;
     end;
    k:=0;
   end;
  if l=n then
   writeln ('Все эл. явл. простыми числами') else
    if l=0 then writeln ('В массиве нет простых чисел') else
      writeln ('В массиве не все эл. явл. простыми числами');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.06.2013, 23:48

Дана последовательность натуральных чисел,вычислить сумму тех из них,порядковые номера которых являются простыми числами
Дана задача в Delphi: Дана последовательность натуральных чисел,вычислить сумму тех из...

Массив: Удалить из массива целых чисел все двузначные элементы,являющиеся простыми числами
Удалить из массива целых чисел все двузначные элементы,являющиеся простыми числами .Найти среднее...

Удалить из вектора все элементы, которые не являются простыми числами
Люди добрые! Помогите решить контрольную в Pascal 1. С клавиатуры вводятся длина (&lt;=100) вектора и...


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

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

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