Вводится информация о семидневном туре в виде стоимостей в долларах сша проезда, проживания в двухместном номере в сутки,питания в сутки, страховки и трансфера. вычислить стоимость тура в долларах сша и рублях.

ts26092004 ts26092004    1   01.06.2019 07:20    0

Ответы
anastasiia08052 anastasiia08052  02.07.2020 13:59
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика