Проверить, можно ли заданное натуральное число N представить в виде суммы точного куба и простого числа

@paulgray · Регистрация: 04.04.2020

Студворк — интернет-сервис помощи студентам

Составьте программу, проверяющую можно ли заданное натуральное число N представить в виде суммы точного куба и просто

@ZX Spectrum-128 · 27.04.2020, 15:10

Сообщение от paulgray

представить в виде суммы точного куба и просто

простого числа?

@paulgray · 28.04.2020, 07:53 **[ТС]**

да, не дописала, сумма точного куба и простого числа

@Puporev · 28.04.2020, 08:33

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
39
function step_3(n:integer):boolean;
var k:integer;
begin
k:=1;
while k<n do k:=k*3;
step_3:=k=n;
end;
function isprost(n:integer):boolean;
var i:integer;
    f:boolean;
begin
if n=2 then f:=true
else if (n=1)or(n mod 2=0) then f:=false
else
 begin
  f:=true;
  i:=3;
  while (i*i<=n)and f do
  if n mod i=0 then f:=false else inc(i,2);
 end;
isprost:=f;
end;
var n,i,j:integer;
begin
write('Введите натуральное число n=');
readln(n);
i:=1;
while i<n do
 begin
  if step_3(i)and isprost(n-i)then
   begin
    writeln('Можно, например');
    writeln(i,' ',n-i);
    break;
   end
  else inc(i);
 end;
if i=n then write('нет');
end.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Решение ниже на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. Задача: реализовать. . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@paulgray 0 / 0 / 0 Регистрация: 04.04.2020 Сообщений: 16

	Проверить, можно ли заданное натуральное число N представить в виде суммы точного куба и простого числа 27.04.2020, 09:55. Показов 1455. Ответов 3 Метки pascal (Все метки) Составьте программу, проверяющую можно ли заданное натуральное число N представить в виде суммы точного куба и просто 0

@paulgray 0 / 0 / 0 Регистрация: 04.04.2020 Сообщений: 16
	28.04.2020, 07:53 [ТС]
	да, не дописала, сумма точного куба и простого числа 0

Проверить, можно ли заданное натуральное число N представить в виде суммы точного куба и простого числа

Решение