С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
lack1253
0 / 0 / 0
Регистрация: 05.02.2017
Сообщений: 12
1

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

17.02.2017, 23:29. Просмотров 645. Ответов 3
Метки нет (Все метки)

Здравствуйте, не могли бы помочь решить пару задач на паскале с помощью процедур. Вот условия:
1. дано натуральное число x. Найти и вывести на печать ближайшее к нему простое число.
2.Дано некоторое простое число x. вывести на печать ближайшее к нему простое число.
3.Разработать программу поиска трех простых чисел, предшествующих числу M, причем M>=10.
Вот кое-какие наброски первой задачи:
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
var
a, b, k: integer;
 
procedure prost(x: integer);
var
y: integer;
begin
y := 2;
while (y * y < x) and (x mod y <> 0) do
inc(y);
if (x mod y = 0) or (x = 1) then begin
inc(k);
writeln(x);
end;
end;
 
begin
 
readln(a, b);
while k <> b do 
begin
inc(a);
prost(a);
end;
end.
И если можно указать на ошибки.
Заранее спасибо.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.02.2017, 23:29
Ответы с готовыми решениями:

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

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

Вывести k-ое простое число
Вывести k-ое простое число

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

Вывести те из чисел сумма цифр которых-простое число.
с клав-ы вводятся n чисел.вывести те из них сумма цифр которых-простое...

3
Hitoku
Модератор
1705 / 1304 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
18.02.2017, 05:38 2
У тебя там где-то бесконечный цикл. Лень было разбирать - написал с нуля Это первая
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure prost(a:integer);
var
k,i,y:integer;
begin
  y:=a;
  repeat
    y:=y+1;
    k:=0;
    for i:=2 to y div 2 do
      if y mod i=0 then inc(k);
  until(k=0);
  writeln(y);
end;
var x:integer;
begin
readln(x);
prost(x);
readln;
end.
Добавлено через 6 минут
Вторая:
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
label vvod;
procedure prost(a:integer);
var
y:integer;
k,i:integer;
begin
  y:=a;
  repeat
    y:=y+1;
    k:=0;
    for i:=2 to y div 2 do
      if y mod i=0 then inc(k);
  until(k=0);
  writeln(y);
end;
var x,j,l:integer;
begin
vvod:
writeln('Введите простое число:');
readln(x);
repeat
l:=0;
for j:=2 to x div 2 do
  if x mod j=0 then goto vvod;
until (l=0);
prost(x);
readln;
end.
Добавлено через 24 минуты
Третья:
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
label vvod;
procedure prost(a:integer);
var
i,c,k:integer;
M: array [1..3] of integer;
begin
  M[1]:=a;
  for c:=1 to 3 do begin
    if c>1 then M[c]:=M[c-1]-1;
    repeat
      M[c]:=M[c]-1;
      k:=0;
      for i:=2 to M[c] div 2 do
        if M[c] mod i=0 then inc(k);
    until(k=0);
  end;
  for c:=1 to 3 do
  write(M[c],' ');
end;
var x:integer;
begin
  vvod:
  writeln('Введите число большее или равное 10:');
  readln(x);
  if x<10 then goto vvod;
  prost(x);
  readln;
end.
1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4265 / 3091 / 3813
Регистрация: 05.06.2014
Сообщений: 15,537
18.02.2017, 09:30 3
 Комментарий модератора 
lack1253, в дальнейшем, пожалуйста, выполняйте правила форума


16.Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
http://www.cyberforum.ru/announcement.php?a=3
0
Cyborg Drone
Модератор
5479 / 3296 / 2482
Регистрация: 17.08.2012
Сообщений: 10,586
04.04.2017, 20:20 4
Тема в платном разделе: http://www.cyberforum.ru/order-program/thread1922366.html.

Эта тема закрыта.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2017, 20:20

Найти и вывести максимальное простое число из заданного массива
Помогите решить задачу. Дан произвольный массив целых чисел размером 5 на 7....

Вывести число, противоположное заданному
Вывести число, противоположное заданному. Входные данные: Во входном потоке...

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


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

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

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