Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
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.
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.
Program tinh_tien_cong ;
Const don_gia = 15000 ;
Var so_gio , so_ngoai_gio , tien_cong : real ;
Begin
Write(' Hay nhap so gio lam ngay thuong : ' ) ;
Readln ( so_gio );
Writeln ( ' Hay nhap so gio lam ngoai gio : ') ;
Readln ( so_ngoai_gio );
tien_cong:= so_gio * don_gia + so_ngoai_gio *don_gia *2 ;
writeln ( ' so tien cong : ' , tien_cong : 9:3 , ' VND ' ) ;
Readln
End .
b)
uses crt;
var s,i,a:longint;
begin
clrscr;
s:=0;
a:=1;
for i:=1 to 35 do
begin
s:=s+a;
a:=a+3;
end;
writeln('So vien keo la: ',s);
readln;
end.
uses crt;
var t,v,i,tien:integer;
begin
clrscr;
write('Nhap so von la: '); readln(v);
write('Nhap lai suat:'); readln(i);
write('Nhap so tien can co la: '); readln(tien);
t:=v+v*i;
writeln('So thang la: ',(tien div t)+1);
readln;
end.
- Tổng số ca: Tại ô E4 sử dụng công thức: =C4+D4. Sau đó sao chép công thức đến khối ô tính E5:E9 để tính cho những người còn lại.
- Tiền công: Tại ô F4 sử dụng công thức: =E4*F$2. Sau đó sao chép công thức đến khối ô tính F5:F9 để tính cho những người còn lại.
Đề không rõ ràng.
Bạn phải cho biết số lễ trong tháng
Ví dụ tháng 1 có 3 ngày lễ, tháng 2 có 5 ngày lễ , ....v.v.
Bạn phải cho biết số giờ làm việc của 1 người làm việc đó trong 1 ngày nữa chứ?. Không lẽ làm việc 24 giờ trong 1 ngày trong vòng 1 tháng?
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.