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