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.

27 tháng 12 2020

uses crt;

var tien:real;

begin

clrscr;

repeat

write('Nhap so tien:'); readln(tien);

until tien>0;

if tien>=100000 then writeln(tien*70/100:4:2)

else writeln(tien*90/10:4:2);

readln;

end.

Dạ cho mình hỏi chỗ này xíu, đoạn "(tien*70/100:4:2)" có chữ 4:2 nghĩa là gì ạ?

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.

 

 

 

 

 

 

 

 

Đến ngày giáng sinh và năm mới, rất nhiều cửa hàng có các chương trình khuyến mạiđể xả hàng cuối năm. Hệ thống các siêu thị BigC cũng tiến hành việc này. Trong đợtkhuyến mại này, một người cứ mua 3 đồ sẽ được giảm giá là đồ có giá trị nhỏ nhất.Ban lãnh đạo muốn bạn viết một chương trình xác định: nếu một người mua toàn bộcác sản phẩm của siêu thị mỗi loại một đơn vị thì người đó...
Đọc tiếp

Đến ngày giáng sinh và năm mới, rất nhiều cửa hàng có các chương trình khuyến mại
để xả hàng cuối năm. Hệ thống các siêu thị BigC cũng tiến hành việc này. Trong đợt
khuyến mại này, một người cứ mua 3 đồ sẽ được giảm giá là đồ có giá trị nhỏ nhất.
Ban lãnh đạo muốn bạn viết một chương trình xác định: nếu một người mua toàn bộ
các sản phẩm của siêu thị mỗi loại một đơn vị thì người đó được giảm giá lớn nhất là
bao nhiêu?
Dữ liệu vào:
• Dòng đầu ghi số N là số mặt hàng trong siêu thị (1 ≤ N ≤ 106);
• Dòng tiếp theo ghi N số nguyên dương ai thể hiện giá của N mặt hàng trong siêu
thị.
Dữ liệu ra:
• Ghi một số duy nhất là giảm giá lớn nhất của một người nếu người đó mua toàn
bộ các sản phẩm của siêu thị mỗi loại một đơn vị
(lập trình pascal)

 

0
20 tháng 3 2023

program GiamGiaTheoSoLuong;

var

     soluonghoa: integer;

     dongia, thanhtien: real;

begin

     write('Nhap so luong hoa: ');

     readln(soluonghoa);

     write('Nhap don gia: ');

     readln(dongia);

     thanhtien := soluonghoa * dongia;

     if soluonghoa >= 10 then

          thanhtien := thanhtien * 0.9

     else if soluonghoa >= 5 then

          thanhtien := thanhtien * 0.95;

     writeln('So luong hoa: ', soluonghoa);

     writeln('Don gia: ', dongia:0:2);

     writeln('Thanh tien: ', thanhtien:0:2);

     readln;

end.

23 tháng 11 2021

program az;

uses Crt;

var n : real;

begin

clrscr;

Write('Nhap so tien thanh toan luc dau : '); readln(n);

If (n >= 100000) then n := (70*n)/100 else n := (90*n)/100;

Write('So tien can thanh toan la : ',n);

readln

end

Mình học từ hồi lớp 8 r