. Зарплата менеджера составляет 200$ + процент от продаж. продажи до 500$ - 3%, от 500 до 1000 – 5%, свыше 1000 – 8%. Пользователь вводит с клавиатурыуровень продаж для трех менеджеров. Определить их зарплату, определить лучшего менеджера, начислить ему премию 200$, вывести итоги на экран.
a - уровень продаж, а затем ЗП первого менеджера b - второго менеджера c - третьего Уровень продаж у всех разный. Язык программирования: Паскаль var a, b, c: integer; begin readln (a); if a < 500 then a := 0.03 * a + 200; if (a > 500) and (a < 1000) then a := 0.05 * a + 200; if a > 1000 then a := 0.08 * a + 200; readln (b); if b < 500 then b := 0.03 * b + 200; if (b > 500) and (b < 1000) then b := 0.05 * b + 200; if b > 1000 then b := 0.08 * b + 200; readln (c); if c < 500 then c := 0.03 * c + 200; if (c > 500) and (c < 1000) then c := 0.05 * c + 200; if c > 1000 then c := 0.08 * c + 200; if (a > b) and (a > c) then a := a +200; else if b > c then b := b + 200; else c := c + 200; wreteln ('ЗП первого менеджера: ', a, '$'); wreteln ('ЗП второго менеджера: ', b, '$'); wreteln ('ЗП третьего менеджера: ', c, '$') end.
