1 câu trả lời
Program Bai2_30;
Uses crt;
Var a,b,c,n,m,k,t: Qword;
Begin
Clrscr;
Write('Gia tien den bu gia cam duoi 1 thang tuoi: '); Readln(a);
Write('Gia tien den bu gia cam tren 1 thang tuoi va duoi 3 thang tuoi: '); Readln(b);
Write('Gia tien den bu gia cam tren 3 thang tuoi: '); Readln(c);
Write('Tong so gia cam: '); Readln(n);
Write('So gia cam duoi 1 thang tuoi: '); Readln(k);
Write('So gia cam tren 1 thang tuoi va duoi 3 thang tuoi: '); Readln(m);
t:=a*k+b*m+(n-k-m)*c;
Write('Tong so tien duoc nha nuoc den bu la: ',t);
Readln;
End.
Câu hỏi trong lớp
Xem thêm
