Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
8011
4557
Bài 8: Karaoke.
uses crt;
var ans,tmp: int64;
t,b,k,i,count: byte;
begin
readln(t);
readln(b, k);
ans := 0;
count := 0;
if not ((t >= 2) and (t <= 6)) then ans := (k - b)*60000
else begin
for i := b to k - 1 do
begin
inc(count);
if i >= 14 then tmp := 50000 else tmp := 40000;
ans := ans + tmp;
if count > 3 then ans := ans - trunc(0.3*tmp);
end;
end;
write(ans);
readln;
end.
Bài 9: Tiền điện.
uses crt;
function getMoney(n: longint): int64;
var i: byte;
ans: int64;
begin
i := 1;
ans := 0;
while (n > 0) and (i <= 200) do
begin
if i <= 100 then ans := ans + 1000 else ans := ans + 2000;
n := n - 1;
inc(i);
end;
if n > 0 then ans := ans + n*3000;
exit(ans);
end;
var n,m: longint;
begin
write('n = '); readln(n);
write('m = '); readln(m);
writeln(getMoney(m - n));
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