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

1) Стоимость путёвки на 3 недели

Будем считать, что вторая неделя стоит на 10% дешевле первой, а третья — ещё на 10% дешевле второй.

program Putyovka;
var
  kurs, total: real;
begin
  write('Введите курс доллара: ');
  readln(kurs);
  total := (200 + 200 * 0.9 + 200 * 0.9 * 0.9) * kurs;
  writeln('Стоимость путевки = ', total:0:2, ' руб.');
end.

2) Зарплата сотрудника в рублях

Если сотрудник знает и ПК, и иностранный язык, то к окладу прибавляется 15% и 20%:

program Salary;
var
  kurs, salary: real;
begin
  write('Введите курс доллара: ');
  readln(kurs);
  salary := 400 * (1 + 0.15 + 0.20) * kurs;
  writeln('Зарплата = ', salary:0:2, ' руб.');
end.

0 0 Пожаловаться