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.
Tâm mở một cửa hàng bán văn phòng phẩm. Trong ngày khai trương, để ”mua may bán đắt”, Tâm quan niệm rằng khi khách hàng mua một sản phẩm nào đó thì phải trả đúng với số tiền của sản phẩm để Tâm không phải trả lại tiền thừa cho khách hàng.
Nam là bạn thân của Tâm đến mua hàng. Nam hiện có N tờ tiền, mỗi tờ tiền M đều có giá trị khác nhau. Giả thiết rằng với số tiền của Nam hiện có đều có thể mua được một số sản phẩm trong cửa hàng.
Yêu cầu: Vì Nam không quen với việc tính toán, em hãy giúp Nam tính xem với N tờ tiền như vậy thì Nam không thể mua sản phẩm có giá trị nhỏ nhất (Min) là bao nhiêu?
Dữ liệu vào: File văn bản BUY.INP
Dòng thứ nhất là số N (0Dòng thứ hai có N tờ tiền, mỗi tờ tiền M cách nhau một khoảng trắng (0Dữ liệu ra: File văn bản BUY.OUT
- Gồm một số nguyên dương Min cần tìm.
Ví dụ:
BUY.INP BUY.OUT
5
1 2 4 9 100 8
b)
3 7
1 2 3
Viết chương trình nhập từ bàn phím 3 số thực a, b, c. Kiểm tra nếu a, b, c có là độ dài 3 cạnh của một tam giác cân thì đưa ra thông điệp "Ba số đã nhập là độ dài 3 cạnh của một tam giác cân". Giúp em với ạ :((
cho bảng giá sau
viết chương trình tính tiền trả cho cửa hàng photo khi photo x tờ A4 1 mặt và y tờ A3 2 mắt
Viết chương trình nhập vào điểm Văn, Toán và khối thì là A,B hoặc C. Tính điểm Tổng bếu khối ='A' thì điểm Toán nhân 2, khối ='C' thì Văn nhân 2, còn khối B thì cộng thêm 1/2 tổng điểm Toán + Văn. Sau đó in ra kết quả tổng điểm
(Sử dụng 2 lệnh IF.... THEN....ELSE... lồng nhau xét điều kiện khối thi để tính tổng)
Viết chương trình nhập số điện tháng trước và số điện tháng sau. Tính số tiền điện phải trả biết 50kW đầu giá 1000/1kW, 50kW tiếp theo giá 2000/1kW và phần còn lại giá 3000/1kW
