Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
IrinaOle
0 / 0 / 0
Регистрация: 03.05.2017
Сообщений: 14
1

Найти ближайшее к 2000 простое число

12.05.2017, 16:00. Просмотров 134. Ответов 3
Метки нет (Все метки)

Найти ближайшее к 2000 простое число. Определить функцию, распознающую простые числа в виде:
система: 1, если а-простое
0, если а-составное
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2017, 16:00
Ответы с готовыми решениями:

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

Дано простое число Найти следующее простое число
Дано простое число n. Найти следующее простое число.

Задано целое число N. Найти ближайшее к нему совершенное число
Задано целое число N. Найти ближайшее к нему совершенное число

Найти ближайшее совершенное число
Добрый день. Помогите пожалуйста написать данную программу: "Задано целое...

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

3
Zwelenewskiy
119 / 119 / 105
Регистрация: 09.01.2017
Сообщений: 1,245
Завершенные тесты: 1
12.05.2017, 19:32 2
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
function Prost(x: integer): byte;
var
  i: integer;
  k: boolean;
begin
  k := false;
  for i := 2 to x div 2 do
    if x mod i = 0
      then k := true;
  
  if k then Prost := 0 
  else Prost := 1; 
end;
 
var
  n, i, z, max: integer;
  x: boolean;
 
BEGIN
    
  z := 0;
  max := 0;
  for i := 1 to 2000 do
  begin
    if Prost(i) = 1
      then z := i;
    if z > max
      then max := z;
  end;
  
  writeln('Простое число, ближайшее к 2000 :', max);
  
END.
1
IrinaOle
0 / 0 / 0
Регистрация: 03.05.2017
Сообщений: 14
12.05.2017, 21:35  [ТС] 3
Спасибо огромное!)
0
Zwelenewskiy
119 / 119 / 105
Регистрация: 09.01.2017
Сообщений: 1,245
Завершенные тесты: 1
12.05.2017, 21:39 4
IrinaOle, в общем-то, не за что. И достаточно нажать соответствующую кнопку) (+1 Спасибо)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2017, 21:39

Найти среди удивительных чисел число, ближайшее к х
некоторое натур. число обладает следующими свойствами: сумма цифр числа n равна...

Найти простое число
Написал задачу по нахождению простого числа, но на 9 строке выплывает ошибка...

Найти наименьшее трехзначное простое число
Найти наименьшее трехзначное простое число. Определить функцию, распознающую...


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

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

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