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.
Đề 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.
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.
{ đơn giá: a, số lượng: b}
uses crt;
var a,b,s,thanhtoan:integer;
begin
write('nhap gia don hang:');
read(a);
write('nhap so luong hang:');
s:=0;
thanhtoan:=0;
s:=a*b;
if s>100 then thanhtoan:= s*(30/100)
else thanhtoan:= s* (10/100);
write(' so tien can thanh toan la:',' ',thanhtoan);
readln;
end.
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2: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ạn ơi sao sao ko dùng lệnh clrscr được