Определите, сколько билетов каждого вида пассажир должен приобрести

@den666m · Регистрация: 03.02.2015

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

Билет на одну поездку в метро стоит 15 рублей, билет на 10 поездок стоит 125 рублей, билет на 60 поездок стоит 440 рублей. Пассажир планирует совершить n поездок. Определите, сколько билетов каждого вида он должен приобрести, чтобы суммарное количество оплаченных поездок было не меньше n, а общая стоимость приобретенных билетов – минимальна.

Входные данные
Дано одно число n - количество поездок.

Выходные данные
Выведите три целых числа, равные необходимому количеству билетов на 1, на 10, на 60 поездок.

что я делаю не так?

Pascal
1
2
3
4
5
6
7
8
9
var n60,n10,n1,n:integer;
begin
  readln(n);
  n60:=n div 60;
  n10:=((n-(n60*60))div 10);
  n1:=n-(n60*60)-(n10*10);
  if(n1>8)then writeln(0,n10+1,n60)
  else writeln(n1,n10,n60);
end.

(n1>8), т.к. дешевле купить 10 поездок за 125 рублей, чем 9 за 135

@vint-81 · 03.02.2015, 22:23

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
const n1=1;n10=10;n60=60;
      k1=15;k10=125;k60=440;
var n,rez1,rez10,rez60:integer;
begin 
 rez1:=0;rez10:=0;rez60:=0;
 write('n = ');readln(n);
 if n>=n60
  then 
   begin
    rez60:=n div n60;
    n:=n mod n60;
   end; 
 if n>(k60 div k10)*n10+(k60-(k60 div k10)*k10)div k1
  then begin inc(rez60);n:=0; end
  else
   if n>=n10
    then
     begin
      rez10:=n div n10;
      n:=n mod n10
     end;
 if n>k10 div k1
  then inc(rez10)
  else rez1:=n;
 writeln(rez1,' ',rez10,' ',rez60)
end.

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .