Fpc билет на одну поездку в метро стоит 15 рублей, билет на 10 поездок стоит 125 рублей, билет на 60 поездок стоит 440 рублей. пассажир планирует совершить n поездок. определите, сколько билетов каждого вида он должен приобрести, чтобы суммарное количество оплаченных поездок было не меньше n, а общая стоимость приобретенных билетов – минимальна. формат входных данных дано одно число n - количество поездок. формат выходных данных выведите три целых числа, равные необходимому количеству билетов на 1, на 10, на 60 поездок. примеры входные данные 129 выходные данные 0 1 2 целая часть от деления n на 60 будет являтся количеством билетов на 60 поездок. однако если остаток, полученый в результате этого деления, будет больше или равен 35, то "выгоднее" купить ешё 1 билет на 60 поездок, чем 3 на 10 и 5 на 1. если остаток меньше 35 - берем целую часть от его деления на 10 - получим кол-во белетов на 10 поездок. если остаток от этого деления равен 9, то "выгоднее" купить ещё 1 билет на 10 поездок, чем 9 на 1. если остаток меньше 9 - то этот остаток и будет являться кол-вом билетов на 1 поездку. что не так с моим кодом? var l,k,j,t,m,p,s,n: longint; begin read(n); l: =n div 60; k: =n mod 60; j: =k div 10; t: =k mod 10; if l> =1 then s: =l; if k> =35 then s: =l+1 else if k< 35 then p: =j; if t=9 then p: =j+1 else if t< 9 then m: =t; writeln(m,' ',p,' ',s) end.

Ответы

Катюшенька1601 28.06.2020 22:12

Var n,i : integer;
a : array [1..3] of integer;
begin
Read(n);
While n>=35 do
begin
inc(a[3]);
n:=n-60;
end;
While n>=9 do
begin
inc(a[2]);
n:=n-10;
end;
While n>=1 do
begin
inc(a[1]);
dec(n);
end;
for i:=1 to 3 do
Write(a[i], ' ');
end.

ПОКАЗАТЬ ОТВЕТЫ

паксуха 28.06.2020 22:12

Var
l,k,j,t,n1,m,p,s,n:longint;
begin
read(n);
l:=n div 60;
k:=n mod 60;
if k>34 then
l:=l+1
else
begin
j:=k div 10;
t:=k mod 10;
if t=9 then
j:=j+1
else
n1:=t;
end;
writeln(n1,' ',j,' ',l);
end.
Fpc билет на одну поездку в метро стоит 15 рублей, билет на 10 поездок стоит 125 рублей, билет на 60