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.
{ đơ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.
B1: nhập số tiền khác đã mua readln(t);
B2: nếu số tiền khách đã mua >150000 thì s:=t*((100-10)/100)
ngược lại thì s:=t*((100-5)/100);
B3: tiếp tục xét nếu số tiền khách đã mua>300000 thì s:=t*((100-15)/100);
b4: in kq ra màn hình
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.
uses crt;
var a,b,c: longint;
d,e,f: longint;
begin
writeln('Nhap so tien A (don vi: nghin dong): '); readln(a);
a:=a*10*10*10;
b:=10000;
c:=110000;
if a>c then begin
d:=a div c; e:=a - c*d;
f:=e div b;
end
else f:=a div b;
if d >0 then
write('Voi so tien do mua duoc: ',d,' thung sua va ',f,' hop sua')
else write('Chi mua duoc ',f,' hop sua thoi');
readln
end.