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

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

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

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

Pascal

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

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

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

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.

исправил

Новые блоги и статьи
Проектирование и моделирование hw_wired 28.01.2025 Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .	Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .	Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .	Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .
Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .	Информационное моделирование hw_wired 28.01.2025 Введение в информационное моделирование В современном мире информационное моделирование стало неотъемлемой частью научной, образовательной и профессиональной деятельности. Это мощный инструмент. . .

	27.11.2015, 19:07

Опции темы

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

Решение

Решение