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.

 

 

 

 

 

 

 

 

Dãy con tăng DAYCON.PAS Cho một dãy số nguyên a 1 , a 2 ,..., a n . Khi xoá một số phần tử của dãy và giữ nguyên thứ tự của các phần tử còn lại ta được một dãy gọi là dãy con của dãy đã cho. Một dãy con a 1 , a 2 ,..., a k được gọi dãy tăng nếu a i <a i+1 (i = 1..k-1) Yêu cầu: Hãy xác định dãy con tăng có số lượng phần tử lớn nhất. Dữ liệu vào: Cho trong file văn bản DAYCON.INP, có cấu trúc...
Đọc tiếp

Dãy con tăng DAYCON.PAS
Cho một dãy số nguyên a 1 , a 2 ,..., a n . Khi xoá một số phần tử của dãy và giữ
nguyên thứ tự của các phần tử còn lại ta được một dãy gọi là dãy con của dãy đã
cho. Một dãy con a 1 , a 2 ,..., a k được gọi dãy tăng nếu a i <a i+1 (i = 1..k-1)
Yêu cầu: Hãy xác định dãy con tăng có số lượng phần tử lớn nhất.
Dữ liệu vào: Cho trong file văn bản DAYCON.INP, có cấu trúc như sau:
- Dòng 1: Ghi số nguyên N là số phần tử của dãy (1  N  1000)
- Dòng 2: Ghi N số nguyên a 1 , a 2 ,...,a n là các phần tử của dãy (1  a
i 

32000). Các số được ghi cách nhau ít nhất một dấu cách.
Dữ liệu ra: Ghi ra file văn bản DAYCON.OUT, theo cấu trúc như sau:
- Dòng 1: Ghi số M là số lượng phần tử lớn nhất của dãy con tìm được.
- Dòng 2: Ghi M số nguyên là chỉ số của M phần tử trong dãy con tìm được
theo thứ tự tăng dần. Các số được ghi cách nhau một dấu cách. (Nếu có nhiều dãy
con thỏa mãn, chỉ cần ghi một dãy con)
Ví dụ:

DAYCON.INP

11
10 100 20 1 2 3 30 20 103 104 80

DAYCON.OUT
6
4 5 6 7 9 10

1
23 tháng 3 2018

HSG à, bài khó vc

Đế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...
Đọ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