Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Elena_M
0 / 0 / 0
Регистрация: 11.11.2012
Сообщений: 16
1

Процедуры или функции: Найти все простые числа,лежащие в заданном диапазоне и их сумму

11.11.2012, 14:58. Просмотров 993. Ответов 1
Метки нет (Все метки)

Пользователь вводит два натуральных числа. Найти все простые числа,лежащие между ними и их сумму. Использовать процедуры или функции.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.11.2012, 14:58
Ответы с готовыми решениями:

Найти все простые числа в диапазоне от 1 до M.
Найти все простые числа в диапазоне от 1 до M. Преподаватель намекнул на метод...

В матрице все простые числа обнулить.процедуры и функции.
Доброго дня! Вот собственно моя программа решенной процедурой, она...

Найти в заданном массиве все простые числа
У меня долг ещё с прошлой сессии. Могут отчислить:-( Если можно, то с...

Найти все простые числа в заданном интервале
Здравствуйте,можете подсказать,что не верно в задаче : у из интервала от A до...

Даны целые числа X(n) переписать в новый массив все числа лежащие в диапазоне [-3;7]
Даны целые числа X(n) переписать в новый массив все числа лежащие в диапазоне

1
Puporev
Модератор
55062 / 42329 / 29230
Регистрация: 18.05.2008
Сообщений: 100,026
11.11.2012, 15:58 2
Лучший ответ Сообщение было отмечено Elena_M как решение

Решение

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
uses crt;
function Prost(n:longint):boolean;
var i:longint;
    f:boolean;
begin
if n<2 then f:=false
else
 begin
  f:=true;
  i:=2;
  while(i*i<=n)and f do
  if n mod i=0 then f:=false
  else i:=i+1;
 end;
Prost:=f;
end;
 
var a,b,i,k,s:longint;
begin
clrscr;
repeat
writeln('Введите 2 натуральных числп b>a:');
readln(a,b);
until b>a;
k:=0;
s:=0;
for i:=a to b do
if Prost(i) then
 begin
  k:=1;
  s:=s+i;
  write(i,' ');
 end;
writeln;
if k=0 then write('На данном интервале нет простых чисел')
else write('Сумма=',s);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.11.2012, 15:58

Процедуры и функции. Среди чисел из интервала от А до В найти все простые
Среди чисел из интервала от А до В найти все простые.

Определить, есть ли в заданном диапазоне чисел простые числа-близнецы
Помогите составить программу Дано натуральное число n. Выяснить, имеются ли...

Пользователь вводит натуральное число .Найти сумму цифр этого числа, деленную на максимальную цифру . Использовать процедуры или функции
Пользователь вводит натуральное число .Найти сумму цифр этого числа, деленную...


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

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

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