Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
simonscat
2 / 2 / 1
Регистрация: 28.10.2013
Сообщений: 53
#1

Процедура на простые числа (зачет) - Turbo Pascal

09.12.2013, 20:46. Просмотров 286. Ответов 0
Метки нет (Все метки)

Здравствуйте, помогите сделать программу, пожалуйста
Задача такова:
На промежутке [M,N] для четных чисел - найти сумму двух простых чисел.
для нечетных - сумму трех простых чисел.

подпрограмма желательно такая
Pascal
1
2
3
4
5
6
7
8
9
 procedure Simple(n:longint; var lol:boolean);
    var d:longint;
   begin
   d:=2;
    if  n=2 then lol:=false else flag:=true;
     while (d*d<=n) and (lol=true) do 
      begin
       if n mod d=0 then lol:=false else inc(d);
      end; end;
Добавлено через 4 часа 35 минут
черт
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2013, 20:46
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Процедура на простые числа (зачет) (Turbo Pascal):

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

Найти и напечатать все простые делители заданного натурального числа числа - Turbo Pascal
1)найти и напечатать все простые делители заданного натурального числа числа

Даны натуральные числа a и b. Получите все простые числа большие a и меньшие b - Pascal
даны натуральные числа a и b. Получите все простые числа большие a и меньшие b. Объясните как найти простые числа?а то я совсем не поняла...

Даны натуральные числа a,b. Получить все простые числа p, удовлетворяющие неравенствам: a<=p<=b - Pascal
Даны натуральные числа a,b(a&lt;b). Получить все простые числа p, удовлетворяющие неравенствам: a&lt;=p&lt;=b.

Вывести на экран монитора все простые числа до заданного числа М - Turbo Pascal
1. Простые числа до М. (40 баллов) Вывести на экран монитора все простые числа до заданного числа М (включительно).

Если данные два числа простые, то у большего числа вычислить сумму цифр - Turbo Pascal
Даны натуральные числа M и N. Если оба числа простые, то у большего числа вычислить сумму цифр, если же оба числа составные, то у каждого...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2013, 20:46
Привет! Вот еще темы с ответами:

Цикл: Для заданного натурального числа n>2 напечатать все простые числа из диапазона [2,n] - Pascal
Для заданного натурального числа n&gt;2 напечатать все простые числа из диапазона

Найти все трехзначные числа,определив функцию, позволяющую распознавать простые числа - Turbo Pascal
1)Найти все трехзначные числа,определив функцию, позволяющую распозновать простые числа. Помогите!!!!! пожалуйста!!!!

Получить все двузначные числа, кратные 3, определив функцию, позволяющую распознавать простые числа. - Turbo Pascal
Напишите пожалуйста решение!СПАСИБО! Получить все двузначные числа, кратные 3, определив функцию, позволяющую распознавать простые числа.

Пользователь задаёт число. Компьютер находит все простые числа в диапазоне от 1 до заданного числа. - Pascal
Ребят, помогите пожалуйста с задачей, очень срочно нужно!!!! Послезавтра нужно сдать.....=(


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

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

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