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 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 .
Đề 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.
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.
uses crt;
var i,n,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do t:=t+i;
writeln(t);
readln;
end.