Question

СРОООЧНО!!!! Напишите программы в Pascal: 1)Рассчитать стоимость путевки на 3 недели в рублях. Стоимость путевки на 1 неделю - 200$, вторая неделя на 10% дешевле, третья - ещё на 10% дешевле. Значение курса доллара вводится с клавиатуры по запросу программы. 2) Фирма приглашает сотрудника на работу с окладом 400$. За знание ПК к окладу прибавляется - 15%, за знание иностранного языка - 20%. Какова зарплата в рублях?

Answer 1

Первая

var k:real;
begin
read(k);
write((200+200*0.9+(200+200*0.9)*0.9)*k);   {write(542*k);}
end.

Вторая 

var k:real;
begin
read(k);
write((400+400*0,15 + 400*0,2)*k);   {write(540*k);}
end.

Answer 2

Конечно, вот программы на Pascal для выполнения указанных задач:

Программа 1: Расчет стоимости путевки

program CalculateTourCost;

var
  week1Cost, week2Cost, week3Cost, totalCost, dollarRate: real;

begin
  // Ввод стоимости путевки на 1 неделю и курса доллара
  write('Введите стоимость путевки на 1 неделю (в долларах): ');
  readln(week1Cost);

write('Введите текущий курс доллара: ');
  readln(dollarRate);

// Рассчитываем стоимость путевки на 2 и 3 недели
  week2Cost := 0.9 * week1Cost;
  week3Cost := 0.9 * week2Cost;

// Общая стоимость на 3 недели
  totalCost := week1Cost + week2Cost + week3Cost;

// Переводим стоимость в рубли по текущему курсу
  totalCost := totalCost * dollarRate;

// Выводим результат
  writeln('Общая стоимость путевки на 3 недели в рублях: ', totalCost:0:2);
end.

Программа 2: Расчет зарплаты сотрудника

program CalculateSalary;

var
  baseSalary, finalSalary, dollarRate: real;
  knowsPC, knowsLanguage: boolean;

begin
  // Ввод базовой зарплаты и курса доллара
  write('Введите базовую зарплату (в долларах): ');
  readln(baseSalary);

write('Введите текущий курс доллара: ');
  readln(dollarRate);

// Ввод информации о знании ПК и иностранного языка
  write('Сотрудник знает ПК? (1 - да, 0 - нет): ');
  readln(knowsPC);

write('Сотрудник знает иностранный язык? (1 - да, 0 - нет): ');
  readln(knowsLanguage);

// Прибавляем проценты к зарплате в зависимости от знаний
  if knowsPC then
    baseSalary := baseSalary + 0.15 * baseSalary;

if knowsLanguage then
    baseSalary := baseSalary + 0.2 * baseSalary;

// Переводим зарплату в рубли по текущему курсу
  finalSalary := baseSalary * dollarRate;

// Выводим результат
  writeln('Итоговая зарплата сотрудника в рублях: ', finalSalary:0:2);
end.

Эти программы предполагают, что ввод пользователем будет корректным (например, ввод чисел в качестве стоимости и курса доллара).