Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Uses Crt;
Var n,t: longint;
begin
clrscr;
Read(n);
If n <= 100 then t:= n*550
else
If (n>100) and (n<=150) then t:= 100*550 + (n-100)*1110
else
If (n>150) and (n<=200) then t:= 100*550 + 50*1110 + (n-150)*1470
else
If n > 200 then t:= 100*550 + 50*1110 + 50*1470 + (n-200)*1600;
Write(t+(t*0.1):0:0);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
1501
739
uses crt;
var n,t:int64;
begin
clrscr;
readln(n);
if n<=100 then t:=550*n
else if (101<=n) and (n<=150) then t:=550*100+(n-100)*1110
else if (151<=n) and (n<=200) then t:=550*100 +50*1110+(n-150)*1470
else t:=550*100+1110*50+1470*50+1600*(n-200);
write(t*110/100:0:0);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
0
0
https://hoidap247.com/cau-hoi/5313659
1501
739
sr, mình nghỉ r ạ
Bảng tin
0
27
0
https://hoidap247.com/cau-hoi/5313659