Mấy bạn làm hộ mình bài này với:
Do lười học, ham chơi, Bờm bị bố phạt phải đi vác xi măng trong 3 ngày, mỗi ngày Bờm vác được số bao xi măng lần lượt là a,b,c. Để động viên Bờm, chủ xây dựng trả cho Bờm số tiền công lần lượt là x,y,z cho mỗi bao xi măng ứng với mỗi ngày. Hãy lập trình tính số tiền công được nhận của Bờm trong 3 ngày, và số tiền trung bình của 1 ngày lao động của Bờm.
uses crt;
var a,b,c,x,y,z,tc1,tc2,tc3,tb: real;
begin
clrscr;
write(‘Nhap so bao xi ngay dau tien: ‘);
readln(a);
write(‘Nhap so bao xi ngay thu hai: ‘);
readln(b);
write(‘Nhap so bao xi ngay thu ba: ‘);
readln(c);
write(‘Nhap so tien cong moi bao xi mang ngay dau tien: ‘);
readln(x);
write(‘Nhap so tien cong moi bao xi mang ngay thu hai: ‘);
readln(y);
write(‘Nhap so tien cong moi bao xi mang ngay thu ba: ‘);
readln(z);
tc1:=a*x;
tc2:=b*y;
tc3:=c*z;
tb:=(tc1+tc2+tc3)/3;
writeln(‘Tien cong ngay 1 la: ‘,tc1:0:2);
writeln(‘Tien cong ngay 2 la: ‘,tc2:0:2);
writeln(‘Tien cong ngay 3 la: ‘,tc3:0:2);
writeln(‘Trung binh ‘,tb:0:2);
readln
end.
var a:array[1..6]of longin;
t:real;
i:byte;
begin
writeln(‘nhap lan luot so bao xi mang vac duoc moi ngay’);
for i:=1 to 3 do
readln(a[i]);t:=0;
writeln(‘nhap lan luot so tien tra cho moi bao xi mang theo ngay’);
for i:=4 to 6 do begin
readln(a[i]);
t:=t+(a[i]*a[i-3]);
end;
writeln(‘so tien Bom nhan duoc la:’,t:0:0);
writeln(‘so tien nhan duoc trung binh 1 ngay la:’,t/3);
readln;
end.