Определить, сколько разных значений может иметь прибыль Ивана

@tracrr · Регистрация: 12.09.2015

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

Иван продал стульев на сумму a руб., кресел на сумму b руб., ковров на сумму c руб. Сумма его накладных расходов - d руб. Напишите программу, которая определяет, сколько разных значений может иметь прибыль Ивана, если a>b>=c>d.

Заранее благодарен за помощь.

ФедосеевПавел · 18.10.2015, 23:40

Где подвох? Ведь прибыль будет a+b+c-d. Или я что-то упускаю?

@tracrr · 19.10.2015, 15:18 **[ТС]**

Подвоха то нет. Но как реализовать полный перебор при и посчитать все возможные варианты прибыли. Шаг в 1 рубль.

@кот Бегемот · 19.10.2015, 16:14

Какой полный перебор? О чём Вы говорите? Чтобы знать, чему равна прибыль, надо ввести эти самые a,b,c,d. То есть получить однозначный ответ.
А если нет, какие варианты могут иметь a,b,c,d, где это в условии?

@tracrr · 19.10.2015, 18:38 **[ТС]**

Например а=3, значит возможные варианты
b c d
2 2 1
2 2 0
2 1 0
2 0 0
1 1 0
1 0 0.

То есть разных вариантов (a+b+c)-d может быть шесть. Вот о чем я говорю, о таком переборе.

ФедосеевПавел · 19.10.2015, 18:55

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

Добавлено через 36 секунд
Может быть вы ещё что-то утаили?

Добавлено через 6 минут
Вы привели ошибочное решение

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

a>b>=c>d

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

Например а=3, значит возможные варианты
b c d
2 2 1
2 2 0
2 1 0
2 0 0 - условие не выполняется
1 1 0
1 0 0. - условие не выполняется

Добавлено через 34 секунды

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program test;
 
var
  a, b, c, d: integer;
begin
  readln(a);
  writeln('a=', a);
  writeln('b': 3, 'c': 3, 'd': 3);
  for b := a - 1 downto 1 do
    for c := b downto 1 do
      for d := c - 1 downto 0 do
        writeln(b: 3, c: 3, d: 3);
end.

@tracrr · 19.10.2015, 19:10 **[ТС]**

Да, точно. Я недосмотрел. Писал просто в транспорте

ФедосеевПавел · 19.10.2015, 19:13

tracrr, как вы можете прокомментировать свою растерянность в этой теме и активно-агрессивное со знанием основ Pascal в соседней Напишите программу, которая считывает из файла целое число и выводит текст, аналогичный приведенному в примере

@tracrr · 19.10.2015, 19:13 **[ТС]**

Технические условия. Программа Profit читает единое целое число а из стандартного устройства ввода. 2 <= a <= 2 300. Программа выводит на устройство стандартного вывода единственное число - искомую величину.

вот количество этих вариантов и нужно посчитать

ФедосеевПавел · 19.10.2015, 19:14

Основы вы знаете - попробуйте изменить мой код.

@tracrr · 19.10.2015, 20:38 **[ТС]**

Сообщение от ФедосеевПавел

Основы вы знаете - попробуйте изменить мой код.

Тут я понял что их не хватило)

ФедосеевПавел · 19.10.2015, 20:54

Поздно, я уже видел, что вы что-то знаете. Начинайте думать.

@tracrr · 19.10.2015, 21:14 **[ТС]**

Сообщение от ФедосеевПавел

Начинайте думать.

Ну спасибо в любом случае.

ФедосеевПавел · 19.10.2015, 21:19

Та не за что. Но вы всё равно попробуйте. Там строка инициализации и замена writeln.

@tracrr · 19.10.2015, 21:23 **[ТС]**

Сообщение от ФедосеевПавел

Та не за что. Но вы всё равно попробуйте. Там строка инициализации и замена writeln.

Дело в том что нужно то посчитать количество разных вариантов прибыли, но там же есть повторы. Никак не вдую как их отбросить:

(100+ 99+ 99)-98=(100+ 99+ 98)-97.

Вот это находиться за гранью

ФедосеевПавел · 19.10.2015, 21:25

У меня время 21:24, а проснулся я в 05:00. Поэтому, вы по-проще, что это за числа?

@tracrr · 19.10.2015, 21:27 **[ТС]**

Вот ввожу я например А=100. Имеем

А B C D
100 99 99 98
100 99 98 97

Т.е. на данном наборе прибыль то его будет одинаковой.

ФедосеевПавел · 19.10.2015, 21:33

Так нужно найти диапазон изменений прибыли (a+b+c-d)?

@tracrr · 19.10.2015, 21:35 **[ТС]**

Сообщение от ФедосеевПавел

Так нужно найти диапазон изменений прибыли (a+b+c-d)?

нет, не диапазон, а количество разных значений прибыли.

ФедосеевПавел · 19.10.2015, 21:43

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program test;
 
var
  a, b, c, d: integer;
begin
  //readln(a);
  a := 6;
  writeln('a=', a);
  writeln('b': 3, 'c': 3, 'd': 3);
  for b := a - 1 downto 1 do
    for c := b downto 1 do
      for d := c - 1 downto 0 do
        writeln(b: 3, c: 3, d: 3, ' -> ', a + b + c - d);
end.

Code
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
a=6
  b  c  d
  5  5  4 -> 12
  5  5  3 -> 13
  5  5  2 -> 14
  5  5  1 -> 15
  5  5  0 -> 16
  5  4  3 -> 12
  5  4  2 -> 13
  5  4  1 -> 14
  5  4  0 -> 15
  5  3  2 -> 12
  5  3  1 -> 13
  5  3  0 -> 14
  5  2  1 -> 12
  5  2  0 -> 13
  5  1  0 -> 12
  4  4  3 -> 11
  4  4  2 -> 12
  4  4  1 -> 13
  4  4  0 -> 14
  4  3  2 -> 11
  4  3  1 -> 12
  4  3  0 -> 13
  4  2  1 -> 11
  4  2  0 -> 12
  4  1  0 -> 11
  3  3  2 -> 10
  3  3  1 -> 11
  3  3  0 -> 12
  3  2  1 -> 10
  3  2  0 -> 11
  3  1  0 -> 10
  2  2  1 -> 9
  2  2  0 -> 10
  2  1  0 -> 9
  1  1  0 -> 8

диапазон от 8 до 16, и всего значений прибыли 16-8+1=9.

Так?

Добавлено через 1 минуту
Это не готовая программа, это средство демонстрации расчётов

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@tracrr 0 / 0 / 0 Регистрация: 12.09.2015 Сообщений: 40

	Определить, сколько разных значений может иметь прибыль Ивана 18.10.2015, 23:11. Показов 2117. Ответов 24 Метки нет (Все метки) Иван продал стульев на сумму a руб., кресел на сумму b руб., ковров на сумму c руб. Сумма его накладных расходов - d руб. Напишите программу, которая определяет, сколько разных значений может иметь прибыль Ивана, если a>b>=c>d. Заранее благодарен за помощь. 0

ФедосеевПавел Модератор 8655 / 4490 / 1669 Регистрация: 01.02.2015 Сообщений: 13,898 Записей в блоге: 12
	18.10.2015, 23:40
	Где подвох? Ведь прибыль будет a+b+c-d. Или я что-то упускаю? 0

@tracrr 0 / 0 / 0 Регистрация: 12.09.2015 Сообщений: 40
	19.10.2015, 15:18 [ТС]
	Подвоха то нет. Но как реализовать полный перебор при и посчитать все возможные варианты прибыли. Шаг в 1 рубль. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	19.10.2015, 16:14
	Какой полный перебор? О чём Вы говорите? Чтобы знать, чему равна прибыль, надо ввести эти самые a,b,c,d. То есть получить однозначный ответ. А если нет, какие варианты могут иметь a,b,c,d, где это в условии? 0

@tracrr 0 / 0 / 0 Регистрация: 12.09.2015 Сообщений: 40
	19.10.2015, 18:38 [ТС]
	Например а=3, значит возможные варианты b c d 2 2 1 2 2 0 2 1 0 2 0 0 1 1 0 1 0 0. То есть разных вариантов (a+b+c)-d может быть шесть. Вот о чем я говорю, о таком переборе. 0

@tracrr 0 / 0 / 0 Регистрация: 12.09.2015 Сообщений: 40
	19.10.2015, 19:10 [ТС]
	Да, точно. Я недосмотрел. Писал просто в транспорте 0

ФедосеевПавел Модератор 8655 / 4490 / 1669 Регистрация: 01.02.2015 Сообщений: 13,898 Записей в блоге: 12
	19.10.2015, 19:13
	tracrr, как вы можете прокомментировать свою растерянность в этой теме и активно-агрессивное со знанием основ Pascal в соседней Напишите программу, которая считывает из файла целое число и выводит текст, аналогичный приведенному в примере 0

@tracrr 0 / 0 / 0 Регистрация: 12.09.2015 Сообщений: 40
	19.10.2015, 19:13 [ТС]
	Технические условия. Программа Profit читает единое целое число а из стандартного устройства ввода. 2 <= a <= 2 300. Программа выводит на устройство стандартного вывода единственное число - искомую величину. вот количество этих вариантов и нужно посчитать 0

ФедосеевПавел Модератор 8655 / 4490 / 1669 Регистрация: 01.02.2015 Сообщений: 13,898 Записей в блоге: 12
	19.10.2015, 19:14
	Основы вы знаете - попробуйте изменить мой код. 0

ФедосеевПавел Модератор 8655 / 4490 / 1669 Регистрация: 01.02.2015 Сообщений: 13,898 Записей в блоге: 12
	19.10.2015, 20:54
	Поздно, я уже видел, что вы что-то знаете. Начинайте думать. 0

ФедосеевПавел Модератор 8655 / 4490 / 1669 Регистрация: 01.02.2015 Сообщений: 13,898 Записей в блоге: 12
	19.10.2015, 21:19
	Та не за что. Но вы всё равно попробуйте. Там строка инициализации и замена writeln. 0

ФедосеевПавел Модератор 8655 / 4490 / 1669 Регистрация: 01.02.2015 Сообщений: 13,898 Записей в блоге: 12
	19.10.2015, 21:25
	У меня время 21:24, а проснулся я в 05:00. Поэтому, вы по-проще, что это за числа? 0

@tracrr 0 / 0 / 0 Регистрация: 12.09.2015 Сообщений: 40
	19.10.2015, 21:27 [ТС]
	Вот ввожу я например А=100. Имеем А B C D 100 99 99 98 100 99 98 97 Т.е. на данном наборе прибыль то его будет одинаковой. 0

ФедосеевПавел Модератор 8655 / 4490 / 1669 Регистрация: 01.02.2015 Сообщений: 13,898 Записей в блоге: 12
	19.10.2015, 21:33
	Так нужно найти диапазон изменений прибыли (a+b+c-d)? 0

Определить, сколько разных значений может иметь прибыль Ивана

Решение