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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Nastya2109
0 / 0 / 0
Регистрация: 03.10.2013
Сообщений: 14
#1

программа проверки гипотезы Гольдбаха - Turbo Pascal

06.10.2013, 17:55. Просмотров 497. Ответов 1
Метки нет (Все метки)

Составить программу проверки гипотезы Гольдбаха:"каждое четное число М,большее или равное 4,представимо в виде суммы двух простых чисел".
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2013, 17:55
Здравствуйте! Я подобрал для вас темы с ответами на вопрос программа проверки гипотезы Гольдбаха (Turbo Pascal):

программа для проверки - Turbo Pascal
уважаемый puporev, не могли бы вы скинуть сюда ссылку на программу в которой можно проверять действия программ, как тут а то вводить...

Программа проверки пароля - Pascal
Доступ в соответствии с паролями. var x:integer; begin write('Vvesti parol : '); readln(x); if (x=9583) or (x=1747) then...

Программа проверки знания даты - Pascal
Всем привет :). Помогите составить программу на языке программирования Pascal, используя оператор выбора. Нужно написать программу проверки...

Программа для проверки пароля - Pascal
\ Помогите нужна создать программу для проверки пароля! Чтобы если мы вводили правильный пароль! Писало доступ открыт. А если не...

Программа проверки правильности ввода даты - Pascal
Здравствуйте! Помогите составить программу Программа проверки правильности ввода даты.При составлении использовать переменную типа...

Программа проверки утверждений для введенной переменной X - Turbo Pascal
Составить программу проверки утверждений для введенной переменной X. Программа должна вывести утверждения (использовать переключатели): ...

1
Puporev
Модератор
52404 / 40251 / 13586
Регистрация: 18.05.2008
Сообщений: 93,052
06.10.2013, 18:22 #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
34
35
36
37
38
uses crt;
function Prost(x:integer):boolean;
var i:integer;
Begin
Prost:=false;
if not odd(x) and (x<>2) { ïðîâåðÿåì Г*Г* Г·ВёГІГ*îñòü  }
then exit;
i:=3;
while i*i<=x do { ïðîâåðÿåì òîëüêî Г*ГҐГ·ВёГІГ*ûå }
 begin
  if x mod i=0 then exit;
  inc(i,2);
 end;
Prost:=true;
end;
var  n,k:integer;
     b:boolean;
begin
clrscr;
repeat
write('Ââåäèòå Г·ГҐГІГ*îå ÷èñëî áîëüøå 3 n=');
readln(n);
until (n>3)and(n mod 2=0);
b:=false;
k:=2;
while(k<=n div 2) and not b do
 begin
  if Prost(k) and Prost(n-k) then
   begin
    b:=true;
    writeln(n,'=',k,'+',n-k);
   end
  else k:=k+1;
 end;
if b then write('ÃèïîòåçГ* ÃîëüäáГ*ГµГ* äëÿ Г·ГЁГ±Г«Г* ',n,' ГўГҐГ°Г*Г*')
else write('ÃèïîòåçГ* ÃîëüäáГ*ГµГ* äëÿ Г·ГЁГ±Г«Г* ',n,' Г*ГҐ ГўГҐГ°Г*Г*');
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2013, 18:22
Привет! Вот еще темы с ответами:

Программа проверки правильности ввода автомобильного номера - Pascal
Опять взываю к высшим.Прошу помочь.Задача звучит так:Автомобильные номера России в большинстве случаев состоят из первой буквы,...

Программа проверки устного счета с описанием действий - Turbo Pascal
Программа проверки устного счета,диапазон чисел -50 до 50,предусматривается регистрация ученика,программа должна работать в цикле до...

Программа проверки знания даты основания Петропавловской крепости - Turbo Pascal
Всем, привет!!! Напишите, пожалуйста программу проверки знания даты основания Петропавловской крепости. В случае неверного ответа...

Программа для проверки правильности расстановки трёх видов скобок: (), [], {}. - Turbo Pascal
Помогите пожалуйста с задачей на паскале. Дана строка, содержащая латинские буквы и скобки трех видов: «()», «», «{}». Если скобки...


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

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

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