Для любого целого числа N>7 найти все такие пары целых чисел

@msk19 · Регистрация: 16.11.2015

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

Для любого целого числа N>7 найти все такие пары целых чисел x и y, что 3x+5y=N.

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
var n,k,h:integer;
begin
readln(n);
for h:=1 to n div 3 do
 for k:=1 to n div 3 do
  if h*3+k*5=n then write('x=',h,' ','y=',k,', ');
  readln
end.

Как данную задачу можно решить красивее?

@vint-81 · 27.11.2015, 18:59

Вы уверены, что в такой постановке эту задачу можно вообще решить?
попробуйте запустить вот это...

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
var n,h:integer;
begin
{readln(n)};n:=10;
for h:=-abs(n*100) div 3 to abs(n*100) div 3 do 
 if (n-h*3) mod 5=0 then write('x=',h,' ','y=',(n-h*3) div 5,', ');
readln
end.

@bormant · 27.11.2015, 19:06

Строго говоря, поскольку в условии пропущено слово "положительных" (и, возможно, слово "ноль"), задача имеет бесконечное множество решений.
Если же допустить, что x,y>=0, то достаточно перебрать y=0..N, и проверить в целых числах выражение n-5y=3x:

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
var n, x, y: Integer;
begin
  Write('Введите N: '); ReadLn(n);
  for y:=0 to n div 5 do begin
    x:=n-y*5;
    if x mod 3=0 then WriteLn('3 * ',x div 3,' + 5 * ',y,' = ',n);
  end;
end.

@msk19 · 27.11.2015, 19:07 **[ТС]**

Сообщение от vint-81

попробуйте запустить вот это...

выходит не понятно что

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
var n,k,h:integer;
begin
readln(n);
for h:=0 to n  div 3 do
 for k:=0 to n div 3 do
  if h*3+k*5=n then write('x=',h,' ','y=',k,', ');
  readln
end.

исправил

Новые блоги и статьи Все статьи Все блоги /
TypeScript: Интерфейсы vs Типы run.dev 11.04.2025 Современная разработка на JavaScript сталкивается с множеством проблем при масштабировании проектов. Типизация кода стала хорошим инструментом, помогающим избежать ошибок во время выполнения,. . .	Управление топиками и разделами Kafka Javaican 11.04.2025 Apache Kafka — распределенная платформа потоковой передачи данных, которая стала стандартом для построения высоконагруженных систем обмена сообщениями. В современной архитектуре микросервисов,. . .	Миграция монолита в Event-Driven микросервисную архитектуру на C# stackOverflow 11.04.2025 Монолитная архитектура – классический подход к разработке программного обеспечения. Это приложение, построенное как единое целое, где все компоненты тесно связаны между собой. Большинство проектов. . .	Go в Kubernetes: Управление ресурсами golander 11.04.2025 Разработчики Go-приложений в Kubernetes часто сталкиваются с неожиданными проблемами производительности и даже внезапными отказами контейнеров. Причина этого кроется в особенностях взаимодействия. . .	Агрегаты и сущности в DDD микросервисах Javaican 10.04.2025 Разработка современных программных систем часто приводит на распутье: монолит или микросервисы? Даже при выборе микросервисной архитектуры многие команды сталкиваются с проблемой правильного. . .
Многопоточность в C#: Task и параллельное программирование UnmanagedCoder 10.04.2025 Современные процессоры уже давно перестали наращивать тактовую частоту в пользу увеличения количества ядер. Это создало интересную ситуацию: разработчики, привыкшие к последовательному. . .	Линейное решение нелинейной задачи с помощью арктангенса для метода обработки данных из double buffering. Hrethgir 10.04.2025 Публикация в доработке, метод арктангенса в комментариях внизу. Вообще изначально я пренебрёг квадратурой числа, но потом понял, что для вычисления приблизительного значения - сгодится, формулу. . .	Переменные в Python py-thonny 10.04.2025 Переменная в программировании — это символическое имя, связанное с областью памяти, в которой хранится значение. Она позволяет получать доступ к данным через понятные человеку идентификаторы, а не. . .	Многопоточность в C#: Task и асинхронные операции UnmanagedCoder 10.04.2025 Многопоточность позволяет выполнять несколько операций одновременно, что важно для решения двух основных задач: повышения скорости выполнения вычислительно-сложных операций и сохранения отзывчивости. . .	Запуск контейнеров Docker на ARM64 Mr. Docker 09.04.2025 Появление таких решений, как Apple M1/ M2, AWS Graviton, Ampere Altra и Raspberry Pi, сделало использование ARM-систем обыденностью для многих разработчиков и DevOps-инженеров. При этом Docker,. . .

Для любого целого числа N>7 найти все такие пары целых чисел

Решение

Решение