Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Program BTT;
Uses crt;
Var kWh: longint;
t: extended;
Begin
Clrscr;
Write('Nhap so kWh: '); Readln(kWh);
If kWh<=50 then t:=t*500;
If (kWh>50) and (kWh<=80) then t:=25000+(kWh-50)*1000;
If kWh>80 then t:=25000+30000+(kWh-80)*1200;
t:=t*110/100;
Write('Tien: ',t:0:2);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
5768
136000
6828
Và biến có thể đặt theo người dùng nha bạn :)
122
3822
5101
Đi trả lời giúp người ta mà bị người ta hạch sách quá :(
0
147
0
sorry mọi người mình nói nhầm ý mình nói là kiểu dữ liệu
1742
26923
1303
À -_- Extended là kiểu dữ liệu số thực, cũng giống như real nhưng giới hạn lớn hơn
5768
136000
6828
:))
0
60
0
bạn làm sai nhé
1742
26923
1303
Sai chỗ nào ạ .-.
1742
26923
1303
Để mình sửa