Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
радостева
0 / 0 / 0
Регистрация: 02.11.2010
Сообщений: 8
1

Задание по теме «Подпрограммы»

25.12.2010, 15:13. Просмотров 844. Ответов 2
Метки нет (Все метки)

Написать программу, которая проверяет гипотезу Гольдбаха для заданного нечетного значения. Гипотеза Гольдбаха: каждое четное значение можно представить в виде суммы двух простых чисел. Вывести на экран эти простые числа. пожалуйста!!! очень надо!!!!!!!!!!!!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2010, 15:13
Ответы с готовыми решениями:

Задание по теме записи
Сформировать файл, содержащий расписание вылета самолетов. Указывается номер рейса, пункт...

Задание по теме «Операторы цикла"
Написать программу, которая по заданному натуральному значению n и действительному a вычисляет...

Задание по теме «Ветвящиеся алгоритмы (условный оператор)»
№1.Написать программу, которая определяет делителем каких чисел (среди трех введенных) является...

задание по теме "операторы цикла" ( помогите пожалуйста)
Написать программу, которая проверяет – имеется ли в записи натурального числа ноль.

Задание по теме "Двумерные массивы"
Написать программу, которая формирует матрицу nxn в следующем виде: 1 0 ... 0 2n-1 2...

2
MegaAce
330 / 304 / 155
Регистрация: 14.02.2010
Сообщений: 662
25.12.2010, 15:16 2
Лучший ответ Сообщение было отмечено радостева как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function Prost(a:integer):boolean;
var i:integer;
    f:boolean;
begin
if a<2 then f:=false
else
 begin
  f:=true;
  i:=2;
  while (i<=round(sqrt(a))) and f do
  if a mod i=0 then f:=false
  else i:=i+1;
 end;
Prost:=f;
end;
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var  i,j,k,n:byte;
     f:boolean;
begin
clrscr;
n:=0;
for i:=3 to 100 do
 begin
  i:=i+1;
  f:=false;
  j:=2;
  while(j<=i-2) and not f do
  begin
  if Prost(j) and Prost(i-j) then
     begin
      f:=true;
      write(i:3,'=',j:2,'+',i-j:2,' ');
     end;
    if not f then j:=j+1;
   end;
 end;
readln
end.
Вчера другу сделал
1
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
25.12.2010, 15:17 3
Проверить для этого числа N гипотезу Гольдбаха
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2010, 15:17

Задание по теме "Двумерные массивы"
Помогите пожалуйста с задачей: Написать программу, которая меняет минимальный элемент строки с...

Задание по теме "строки"
С клавиатуры ввести символы. Посчитать кол-во символов &gt;k; &lt;k; =k. Результат выдать на экране. ...

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


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

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

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