Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Куда и как записать путь из одного города в другой? http://www.cyberforum.ru/pascalabc/thread1979339.html
В книге Окулова и Кирюхина "Методы решения задач по информатике. Международные олимпиады" есть задача Канадские авиалинии. Вопрос: Куда и как записать путь из одного города в другой?
Pascal ABC Графы 1.Представление графа:матрица смежности Граф:ориентированный и неориентированый Задача:Преобразовать в список смежности http://www.cyberforum.ru/pascalabc/thread1979236.html
Множества Pascal ABC
Дана матрица А размерностью элементов целого типа из диапазона от 0 до 255. Не используя вспомогательных массивов и не изменяя порядка следования элементов в матрице А установите, можно ли...
Pascal ABC Эффекты с улиткой Паскаля.
Pascal ABC Написать программу для вычисления метода наименьших квадратов по формуле 1/(a*x+b) http://www.cyberforum.ru/pascalabc/thread1979188.html
Написать программу для вычисления метода наименьших квадратов по формуле 1/(a*x+b)-дробно-рациональная зависимость
Pascal ABC Программирование модуля подробнее
Zwelenewskiy
119 / 119 / 105
Регистрация: 09.01.2017
Сообщений: 1,256
Завершенные тесты: 1
12.05.2017, 19:32 0

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

12.05.2017, 19:32. Просмотров 135. Ответов 3
Метки (Все метки)

Ответ

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.


Вернуться к обсуждению:
Найти ближайшее к 2000 простое число
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2017, 19:32

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

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

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

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