Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
simonscat
2 / 2 / 4
Регистрация: 28.10.2013
Сообщений: 53
1

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

09.12.2013, 20:46. Просмотров 311. Ответов 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
Ответы с готовыми решениями:

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

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

Даны натуральные числа a и b. Получите все простые числа большие a и меньшие b
даны натуральные числа a и b. Получите все простые числа большие a и меньшие b....

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

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

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

Найти все трехзначные числа,определив функцию, позволяющую распознавать простые числа
1)Найти все трехзначные числа,определив функцию, позволяющую распозновать ...

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

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


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

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

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