Вычислить полную стоимость путевки на лыжный курорт, если путевка стоит 300$ доставка увеличивает стоимость на 20 %, использование инвентаря - на 10%. курс лолора ввести с клавиатуры. стоимость путевки вывести в рублях.
Полная стоимость путёвки будет равна 390$(20% от 300 + 10% от 300)
С клавиатуры вводится стоимость одного доллара.
program test; var voucher, rate: real; begin write('Enter the exchange rate of the dollar: '); readln(rate); voucher:=300; voucher:=voucher+voucher/100*20+voucher/100*10; writeln(voucher*rate, ' rub'); readln; end.
Полная стоимость путёвки будет равна 390$(20% от 300 + 10% от 300)
С клавиатуры вводится стоимость одного доллара.
program test;
var voucher, rate: real;
begin
write('Enter the exchange rate of the dollar: ');
readln(rate);
voucher:=300;
voucher:=voucher+voucher/100*20+voucher/100*10;
writeln(voucher*rate, ' rub');
readln;
end.