Варіант 14
У викладачів наступні посади і оклади:
професор – 7500 грн.; доцент – 5800 грн.; старший викладач –4400 грн.; викладач – 3100 грн.
Розрахувати надбавку викладачам.
Якщо стаж від 5 до 10 років - доплачується 10% від окладу,
від 10 до 20 років - 20% окладу,
до 30 років – 25% окладу,
понад 30 років – 30% окладу.
Розрахувати розмір надбавки і суму до сплати з урахуванням окладу і надбавки.
Розрахувати загальну суму виплат по навчальному закладу; кількість викладачів, які не
одержують надбавку за стаж і їх загальну суму до сплати.
Для кожної посади визначити кількість викладачів і їх загальну суму до оплати.
нужно сделать в Excel
FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.
1) 1 Килобайт = 1024 Байтов
1 Мегабайт = 1024 Килобайтов (1024 Б * 1024 Б)
=> 1572864 : 1024 = 1536 КБ (Килобайт)
(1536 ←(1572864 Б) : 1024 = 1,5 МБ ⇔ Окончательный ответ)
2) 1 Байт = 8 Битов
=> 20480 : 8 = 2560
20480 Бит = 2560 Байт
(2560 ←(20480 Бит): 1024 = 2,5 КБ ⇔ Окончательный ответ )
3) 4194304 Байт = 4096 Кб
(4096 Кб = 4 Мб ⇔ Окончательный ответ)
4)40960 Бит = 5120 Байт
(5120 Байт = 5 Кб ⇔ Окончательный ответ)
5) 3145728 Байт = 3072 Кб
(3072 Кб = 3 Мб ⇔ Окончательный ответ)
6) 155648 Бит = 19456 Байт
(19456 Байт = 19 Кб ⇔ Окончательный ответ)