Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 25.02.2013
Сообщений: 13
1

Найти все трехзначные простые числа

15.09.2013, 16:25. Просмотров 1474. Ответов 2
Метки нет (Все метки)


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

Найти все простые трехзначные числа
Найти все простые трехзначные числа.

Найти все трехзначные простые числа
Найти все трехзначные простые числа Просто́е число́ — это натуральное число, которое имеет ровно...

Найти все трехзначные простые числа. Предусмотреть наличие подпрограммы для распознавания простого числа
Найти все трехзначные простые числа. Предусмотреть наличие подпрограммы для распознавания простого...

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

2
902 / 750 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
15.09.2013, 16:58 2
Лучший ответ Сообщение было отмечено Владислав00123 как решение

Решение

Вместо чисел N = 100 и M = 999 можно поставить любые целые положительные числа. Вот, пожалуйста:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  i, j, N, M: word;
  f: boolean;
  
begin
  N := 100; //минимальное трехзначное число
  M := 999; //максимальное трехзначное число
  for i := N to M do
  begin
    f := true; //сначала число i считается простым
    for j := 2 to round(sqrt(i)) do
     { Делим число i на все числа от 2 до целой части от корня 
     квадратного i; если число поделилось, то меняем индикатор 
     на false и выходим из внутреннего цикла: }
      if frac(i/j) = 0 then begin f := false; break end;
   { Если ни одно число не поделилось, то выводим его: }   
    if f = true then write(' ', i)
  end  
end.
0
Модератор
62853 / 46902 / 32325
Регистрация: 18.05.2008
Сообщений: 113,645
15.09.2013, 17:00 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var a,i:integer;
    f:boolean;
begin
a:=101;//проверим только нечетные числа
while a<=999 do
 begin
  f:=true;
  i:=3;//делимость на нечетные числа
  while f and (i*i<=a) do
  if a mod i=0 then f:=false
  else i:=i+2;
  if f then write(a:5);
  a:=a+2;
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.09.2013, 17:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти все простые числа, меньше данного числа N. Определение простого числа описать в функции
Найти все простые числа, меньше данного числа N. Определение простого числа описать в функции

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

Найти все трехзначные числа, которые делятся на n
Найти все трехзначные числа, которые делятся на n

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

Найти все трехзначные числа, сумма цифр которых равна N
Дано натуральное число n. Найти все трехзначные числа, сумма цифр которых равна N. Операции...

Найти все трехзначные числа, которые при увеличении на 1 делятся на 2
Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся...


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

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

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