Question

Một người làm việc theo hợp đồng lao động cứ 1 giờ làm việc được 20.000 đồng, ngày nghỉ lễ và làm thêm ca trong tháng thì 1 giờ được tính bằng 3 lần số tiền 1 giờ được hưởng theo ngày thường. Theo hợp đồng lao động người đó phải đóng 10.5% tiền bảo hiểm. Em hãy viết chương trình và in ra màn hình kết quả.
a. Tính tiền công lao động của người đó trong 1 tháng
b. Số tiền mà người đó phải nộp bảo hiểm trong 1 tháng.
c. Số tiền mà người đó nhận được sau khi nộp bảo hiểm
(Số tiền nhận được = Số tiền công hằng tháng – số tiền nộp bảo hiểm).

Answer 1

program an_danh;
uses crt;
var gio,giothem:integer;
tien:longint;
tienbh,tiencl: real;
const dong = 20000;
begin
clrscr;
write('So gio nguoi do lam viec: ');readln(gio);
write('So gio lam them ca: ');readln(giothem);
if giothem > 0 then
begin
tien:= giothem * (dong * 3);
tien:= tien + (gio * dong);
end
else if giothem = 0 then tien:= gio * dong;
writeln('Tien cong lao dong trong 1 thang: ',tien);
tienbh:= (tien / 100) * 10.5;
writeln('So tien phai nop bao hiem: ',tienbh:0:2);
tiencl:= tien - tienbh;
write('So tien con lai: ',tiencl:0:1);
readln
end.

Answer 2

uses crt;
var nlv,ltc,ttld:longint;
tnbh,tnd:real;
begin
clrscr;
write('nhap so ngay lam viec:'); readln(nlv);
write('nhap so ngay nghi le va lam them ca:'); readln(ltc);
{---------------------cau-a--------------------}
ttld:=nlv*8*20000+ltc*8*60000;
writeln('tien cong lao dong cua nguoi do trong 1 thang la: ',ttld);
{--------------------cau-b-------------------------}
tnbh:=ttld*10.5/100;
writeln('tien dong bao hiem=',tnbh:4:2);
{--------------------cau-c-------------------------}
tnd:=ttld-tnbh;
writeln('so tien ma nguoi do nhan duoc la: ',tnd:4:2);
readln;
end.