Вводится информация о семидневном туре в виде стоимостей в долларах сша проезда, проживания в двухместном номере в сутки,питания в сутки, страховки и трансфера. вычислить стоимость тура в долларах сша и рублях.
Var p,h,e,s,t,x: integer; begin write('Введите стоимость проезда в 1 сторону: '); readln(p); write('Введите стоимость проживания в двухместном номере в сутки: '); readln(h); write('Введите стоимость питания в сутки: '); readln(e); write('Введите стоимость страховки: '); readln(s); write('Введите стоимость трансфера: '); readln(t); x:=p*2+h*7+e*7+s+t; writeln('Стоимость тура = ',x, '$', ' - ', x*34.75, 'руб'); end.
begin write('Введите стоимость проезда в 1 сторону: ');
readln(p);
write('Введите стоимость проживания в двухместном номере в сутки: ');
readln(h);
write('Введите стоимость питания в сутки: ');
readln(e);
write('Введите стоимость страховки: ');
readln(s);
write('Введите стоимость трансфера: ');
readln(t);
x:=p*2+h*7+e*7+s+t;
writeln('Стоимость тура = ',x, '$', ' - ', x*34.75, 'руб');
end.