K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
10 tháng 9 2020
uses crt;
var mh,sl,tt:longint;
begin
clrscr;
write('Nhap don gia cua mat hang:'); readln(mh);
write('Nhap so luong cua mat hang ',mh,':'); readln(sl);
tt:=sl*mh;
if tt>100 then writeln('So tien phai tra la: ',tt*97/100:4:2)
else writeln('So tien phai tra la: ',tt);
readln;
end.
if G>100000 then wirte('giam gia 10%') else wirteln('giam gia 5%');
var n:int64;
begin
readln(n);
if n>100000 then n:=n div 10 else n:=n div 20;
write(n);
end.