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.

11 tháng 11 2019

uses crt;
var n:longint;
giam:real;
begin
clrscr;
write('nhap so tien:'); readln(n);
if n<500000 then writeln('so tien ma ban mua la: ',n);
if (n>=500000) and (n<=1000000) then
begin
giam:=n-(n*15/100)+(n*10/100);
writeln('so tien ban mua sau khi giam 15% va chiu 10% thue la: ',giam:4:2);
end;
if n>1000000 then
begin
giam:=n-(n*20/100)+(n*10/100);
writeln('so tien ban mua sau khi giam 20% va chiu 10% thue la: ',giam:4:2);
end;
readln;
end.

8 tháng 9 2022

{ đơn giá: a, số lượng: b}

uses crt;

var a,b,s,thanhtoan:integer;

begin

write('nhap gia don hang:');

read(a);

write('nhap so luong hang:');

s:=0;

thanhtoan:=0;

s:=a*b;

if s>100 then thanhtoan:= s*(30/100)

   else thanhtoan:= s* (10/100);

write(' so tien can thanh toan la:',' ',thanhtoan);

readln;

end.

 

 

 

 

 

 

 

 

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln((a+b)/2:4:2);

readln;

end.