В паскале, через case of Составить программу для начисления зарплаты согласно следующему...

Question

В паскале, через case of Составить программу для начисления зарплаты согласно следующему правилу: если стаж работы сотрудника менее 5 лет, то зарплата 50$., при стаже работы от 5 до 15 лет — 100$., при стаже свыше 15 лет зарплата повышается с каждым годом на 10$, превышающем 30 лет она составляет 300$

Comments

Здесь не через case нужно писать, т.к. после 15 лет стажа шаг равен 1, слишком много строк программы будет.

---

Правильно если правильно я кину как решениеvarold:integer;beginwriteln('Введите стаж');readln(old);case old of0..4: writeln('50$');5..15: writeln('100$');16..29: writeln(100+(old mod 15)*10);30..100: writeln('300$');end;end.

---

При превышающем 30 лет з/п = 300, не 16..29, а 16..30

---

ой точно :)

---

Правильно

---

Спасибо большое

---

А какова з/п если исполнилось 102 года?

Answer 1

var

old:integer;

begin

writeln('Введите стаж');

readln(old);

case old of

0..4: writeln('50$');

5..15: writeln('100$');

16..30: writeln(100+(old mod 15)*10);

31..100: writeln('300$');

end;

end.