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

Pascal (Паскаль)

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

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

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

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

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

Задание по теме «Операторы цикла" - Pascal
Написать программу, которая по заданному натуральному значению n и действительному a вычисляет результат выражения: H= a.(a+1).(a+2). ......

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

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

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

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

2
MegaAce
330 / 304 / 65
Регистрация: 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
2841 / 1970 / 377
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Задание по теме файлы - Python
Создать текстовый файл,в котором записать не менее 20 целых чисел в диапазоне от -7 до 7. Вывести содержимое файла на экран. Найти...

Задание по теме “Файлы” - Python
Задание по теме “Файлы” Написать программу, которая ищет в файле слово, введенное с клавиатуры и выводит номер строк, в которых...


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

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

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