Расчет заработной платы.

@Chao228 · Регистрация: 30.10.2016

Студворк — интернет-сервис помощи студентам

Работник каждую пятницу получает зар.плату за отработанные пять 8-часовых раб. дней при поч часовой оплате 40$/час.
При этом если работник отработал более 8 часов ему за каждый из таких дней насчитывается премия в размере 300$
Бухгалтер задает 5 чисел которые являются количеством отработанных часов у понедельник-пятницу соответственно.
Выдать:
-насчитанную сумму зар платы ($);
-размер налога ($):18.6%
-зар плату ($) (учитывая налог)

@bormant · 31.10.2016, 12:28

Pascal

const
  Rate=40; Bonus=300; TaxRate=0.186;
var
  s, h, i: Integer;
begin
  Write('Ежедневная почасовая отработка за 5 дней: ');
  for i:=1 to 5 do begin
    Read(h); s:=s+Rate*h+Bonus*Ord(h>8);
  end; ReadLn;
  WriteLn('Начислено: $',s,' Налог: $',s*TaxRate:0:2,' К выдаче: $',s*(1-TaxRate):0:2);
end.

@Chao228 · 31.10.2016, 17:26 **[ТС]**

Огромное спасибо, немного изменил и все заработало как надо ))

@Chao228 0 / 0 / 0 Регистрация: 30.10.2016 Сообщений: 13
		1
	Расчет заработной платы. 31.10.2016, 00:04. Показов 3957. Ответов 2 Метки нет (Все метки) Работник каждую пятницу получает зар.плату за отработанные пять 8-часовых раб. дней при поч часовой оплате 40$/час. При этом если работник отработал более 8 часов ему за каждый из таких дней насчитывается премия в размере 300$ Бухгалтер задает 5 чисел которые являются количеством отработанных часов у понедельник-пятницу соответственно. Выдать: -насчитанную сумму зар платы ($); -размер налога ($):18.6% -зар плату ($) (учитывая налог) 0

@Chao228 0 / 0 / 0 Регистрация: 30.10.2016 Сообщений: 13
	31.10.2016, 17:26 [ТС]	3
	Огромное спасибо, немного изменил и все заработало как надо )) 0

Опции темы

Расчет заработной платы.

Решение