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

@Meotha · Регистрация: 20.11.2023

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

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

nikulin_artyom1 · 26.01.2024, 17:00

Примерно так.

Pascal

program FindPairs;
var
  N, x, y: integer;
begin
  writeln('Введите целое число N > 9');
  readln(N);
  if N <= 9 then
    writeln('Неверный ввод')
  else
  begin
    writeln('Все пары x и y, такие что 3x + 7y = ', N, ':');
    for x := 0 to N div 3 do
    begin
      for y := 0 to N div 7 do
      begin
        if 3 * x + 7 * y = N then
          writeln('x = ', x, ', y = ', y);
      end;
    end;
  end;
end.

@bormant · 26.01.2024, 17:39

nikulin_artyom1,
Второй цикл не нужен, совсем не нужен.

Добавлено через 2 минуты

Не подсматривать!

Еще немного подумать самому...

Pascal

12
13
14

  for y:=0 to n div 7 do
    if (n-y*7) mod 3=0 then
      WriteLn('x = ',(n-y*7) div 3,'  y = ',y);

ANT0NY · 26.01.2024, 17:45

Зачем второй цикл 'y', ведь только целые положительные

Pascal

14
15

y:=N-x*3;
if y>=0 then if y mod 7=0 then ...

@bormant · 26.01.2024, 17:53

ANT0NY,
и еще момент: до (n div 7) бежать короче, чем до (n div 3).

Добавлено через 2 минуты

Pascal

14
15

x:=n-y*7;
if x mod 3=0 then ...

ANT0NY · 26.01.2024, 18:55

bormant, всё верно, был такой намёк.

Не по теме:

Пока отвечал, не видел ваш ответ, так что моё сообщение можно удалить как повтор.

ФедосеевПавел · 27.01.2024, 22:26

Можно ещё через Диофантовы уравнения ax+by=c решить.

Смотря, что предполагалось изучить...

Т.к. a и b заданы изначально, то в программе можно опустить часть вычислений.

Pascal

program FindPairs;
 
const
  a = 3;
  b = 7;
var
  N: integer;
  X0, Y0: integer;
  K, Kmin, Kmax: integer;
begin
  writeln('Enter N:');
  readln(N);
  X0 := -2 * N;
  Y0 := N;
  {Оценка диапазона изменения k для получения неотрицательных значений x и y}
  Kmin := (abs(X0) + b - 1) div b;
  Kmax := Y0 div a;
  Write('Всего возможных неотрицательных решений ', Kmax - Kmin + 1);
  if (Kmax - Kmin + 1) = 0 then
    writeln('.')
  else
    writeln(':');
  for K := Kmin to Kmax do
    writeln(' x=', X0 + 7 * K, ' y=', Y0 - 3 * K);
end.

Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

@Meotha -1 / 0 / 0 Регистрация: 20.11.2023 Сообщений: 30
		1
	Для любого целого числа N > 9 найти все такие пары целых неотрицательных чисел x и y, что 3x + 7y = N 27.12.2023, 19:13. Показов 1224. Ответов 6 Метки нет (Все метки) Для любого целого числа N > 9 найти все такие пары целых неотрицательных чисел x и y, что 3x + 7y = N. Напишите код на языке Pascal. 0

ANT0NY 104 / 50 / 9 Регистрация: 06.01.2024 Сообщений: 383
	26.01.2024, 18:55	6
	bormant, всё верно, был такой намёк. Не по теме: Пока отвечал, не видел ваш ответ, так что моё сообщение можно удалить как повтор. 0

	27.01.2024, 22:26