Question

Многие банки при оплате покупок их банковскими картами предлагают систему возврата части
потраченных средств, называемую 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 в зависимости от того, картой какого банка выгоднее
оплатить эту покупку. А при равенстве суммы возврата — название банка, определённого в условии
задачи.
Помогите плез

Answer 1

Ответ:

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.