С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/10: Рейтинг темы: голосов - 10, средняя оценка - 4.60
tsohg15
1 / 2 / 3
Регистрация: 14.03.2012
Сообщений: 84
1

Программа для вычисления простых чисел

11.06.2012, 08:13. Просмотров 1845. Ответов 1
Метки нет (Все метки)

Всем привет, пожалуйста помогите друзья
Разработка программ для модели 3-х адресной ЭВМ - это тема, кто знает помогите пожалуйста

Определить количество простых чисел в линейной таблице. Использовать вспомогательный алгоритм распознавания простого числа.

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

Программа для вычисления суммы остатка от деления чисел
Решите , пожалуйста, задачу. Найти сумму остатка от деления чисел a-b/5 и...

Нужна программа для вычисления среднего арифметического трех чисел
И что куда, собственно говоря?

Напишите программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N)
Напишите программу вычисления суммы квадратов простых чисел, лежащих в...

Найти сумму простых чисел, входящих в массив (Блок-схема и программа)
Дана вот такая задачка: Массив целых чисел С состоит из N элементов, найти...

Алгоритм вычисления простых чисел
нaиcaть фyнкцию, вычиcляющyю cледyющее прocтoе чиcлo пocле ее aргyментa. В...

1
Das Gespenst
Лучи добра
172 / 170 / 191
Регистрация: 08.06.2012
Сообщений: 292
11.06.2012, 13:48 2
Лучший ответ Сообщение было отмечено tsohg15 как решение

Решение

Лови!
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
program z;
var i,n,b,k:integer;
a:array [1..100] of integer;
procedure task(a1:integer; var b1,k1:integer);
     var i1:integer;
     begin
          k1:=0;
          for i1:=1 to a1 do
              begin
                   if a1 mod i1=0
                      then
                          k1:=k1+1;
 
              end;
              if k1=2
                 then
                     b1:=a1;
     end;
begin
     writeln('Введите кол-во элементов вектора');
     readln(n);
     randomize;
     for i:=1 to n do
         a[i]:=trunc(15-(-15)*random+(-15));
     writeln('Случайный вектор');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     writeln('Простые числа в векторе:');
     i:=0;
     repeat
           i:=i+1;
           task(a[i],b,k);
           if k=2
              then
                  write(b,' ');
     until i=n;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2012, 13:48

Составить программу вычисления суммы простых чисел , лежащих в интервале (Т;2Т-1) , Т>2.
помогите,пожалуйста задачу решить на паскале. нужно с помощью...

Составьте программу вычисления суммы квадратов простых чисел,лежащих в интервале (M,N)
Составьте программу вычисления суммы квадратов простых чисел,лежащих в...

Pascal - программа генератор простых чисел
Привет, у меня возникла трабла с задачей :( Составить на pascal...


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

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

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