Вычислить полную стоимость путевки на лыжный курорт, если путевка стоит 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.
// PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 // Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin var (w,h):=(800,600); // размер графического окна SetWindowSize(w,h); var (xc,yc):=(w div 2,h div 2); // координаты центра var R:=h-yc-20; // радиус описанной окружности var n:=ReadInteger('Количество сторон n ='); Window.Clear; Pen.Width:=5; Pen.Color:=clRed; var P:=new Point[n]; for var i:=0 to n-1 do begin var arg:=2*Pi*i/n-Pi/2; P[i].X:=Trunc(xc+R*cos(arg)); P[i].Y:=Trunc(yc+R*sin(arg)) end; DrawPolygon(P); end.
Здесь нужно введенную строку преобразовать в список со знаком-разделителем ".", так как идентификация файла идет только по расширению (это слово после последней точки в строке). Далее нужно проверить последнее слово (это последний элемент списка, его можно вытащить из списка с индексом -1) на соответствие одному из трех заданных расширений.
Программа:
x=input().split('.') #строим список из слов по разделителю "точка" y=['htm','html','php'] #задаем список расширений web-страниц if x[-1] in y: #если последнее слово из х есть в списке у print('Это веб-страница') #выводим положительное сообщение else: #иначе print('Что-то другое') #выводим отрицательное сообщение
Полная стоимость путёвки будет равна 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.