Многие банки при оплате покупок их банковскими картами предлагают систему возврата части
потраченных средств, называемую cashback.
мама алёны имеет три подобные карты с разными условиями возврата части потраченной сум-
мы. на карту банка rr возвращается 5 рублей из каждых полных 100 рублей стоимости одной
покупки. например, 5 рублей возвращается и за покупку стоимостью 100 рублей, и 199 рублей.
банк bb возвращает 2 рубля с каждых 50 рублей покупки, и за покупку стоимостью 199 рублей
он вернет уже 6 рублей. а банк мм возвращает 3% с полной стоимости любой покупки (заметим,
что при цене в целом числе рублей, 3% всегда будут составлять целое число копеек), поэтому за
покупку в 199 рублей вернется 5 руб. 97 коп.
алёна любит ходить вместе с мамой за покупками. мама предложила алёне определять, какую
покупку какой картой оплачивать, чтобы сумма возврата была максимально возможной. считайте,
что оплата любой покупки возможна любой картой. если какие-то две или все три карты
лучшую сумму возврата с точностью до копеек, то алёна выбирает ту из карт, которая ей больше
нравится по оформлению. больше всего алёна любит карту банка mm, затем идёт карта банка bb,
а меньше всего алёне нравится карта банка rr.
формат входных данных
вводится одно целое число s (1 ⩽ s ⩽ 10 000) — стоимость покупки в рублях.
формат выходных данных
выведите название банка rr, bb или mm в зависимости от того, картой какого банка выгоднее
оплатить эту покупку. а при равенстве суммы возврата — название банка, определённого в условии
.
плез

Pifpafff Pifpafff    3   01.02.2020 17:21    15

Ответы
Настечок Настечок  11.10.2020 04:05

var

 a,x,b,c: real;

begin

 write('Введите стоимость покупки = ');

 readln(x);

 a := x/100;

 a := Trunc(a);  

 a := a*5;

 b := x/50;

 b := Trunc(b);

 b := b*2;

 c := x*0.03;

 if (a>b)and (a>c)

  then

   writeln('RP')

  else

    if (b>a) and (b>c)

     then

       writeln('BB')

     else

       if (c>a) and (c>b)

        then

          writeln('MM')

         else

           writeln('Суммы равны, Алена выбирает <MM>')

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика