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.

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ể...
Đọc tiếp

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
5
1 2 4 9 100

BUY.OUT: 8
b)
BUY.INP: 3

1 2 3

BUY.OUT: 7

0
Cho dãy số (a1, a2, a3, ..., an) là một hoán vị bất kỳ của tập hợp (1, 2, 3, ..., n). Dãy số (b1, b2, b3, ..., bn) gọi là nghịch thế của dãy a nếu bi là số phần tử đứng trước số i trong dãy a mà lớn hơn i. Ví dụ: Dãy a là: 3 2 5 7 1 4 6 Dãy b là: 4 1 0 2 0 1 0 a. Cho dãy a, hãy xây dựng chương trình tìm dãy b. b. Cho dãy b, xây dựng chương trình tìm dãy a. Dữ liệu vào: Trong file NGICH.INP với nội dung: -Dòng đầu tiên là...
Đọc tiếp

Cho dãy số (a1, a2, a3, ..., an) là một hoán vị bất kỳ của tập hợp (1, 2, 3, ..., n). Dãy số (b1, b2, b3, ..., bn) gọi là nghịch thế của dãy a nếu bi là số phần tử đứng trước số i trong dãy a mà lớn hơn i.

Ví dụ:

Dãy a là: 3 2 5 7 1 4 6

Dãy b là: 4 1 0 2 0 1 0

a. Cho dãy a, hãy xây dựng chương trình tìm dãy b.

b. Cho dãy b, xây dựng chương trình tìm dãy a.

Dữ liệu vào: Trong file NGICH.INP với nội dung:

-Dòng đầu tiên là số n (1 <= n <= 10 000).

-Các dòng tiếp theo là n số của dãy a, mỗi số cách nhau một dấu cách,

-Các dòng tiếp theo là n số của dãy b, mỗi số cách nhau bởi một dấu cách.

Dữ liệu ra: Trong file NGHICH.OUT với nội dung:

-N số đầu tiên là kết quả của câu a

-Tiếp đó là một dòng trống và sau đó là n số kết quả của câu b (nếu tìm được dãy a).

1
28 tháng 4 2020

Program day_nghich_the;

uses crt;

const fn = 'nghich.inp';

gn = 'nghich.out';

nmax=10000;

var f,g:text;

n,i,j,dem:0..nmax;

a,b,luu:array[1..nmax] of 0..nmax;

procedure nhap;

begin fillchar(a,sizeof(a),0);

b:=a;

assign(f,fn);

reset(f);

readln(f,n);

for i:=1 to n do read(f,a[i]);

write(f);

for i:=1 to n do read(f,b[i]);

close(f);

end;

procedure tim_b;

begin

fillchar(luu,sizeof(luu),0);

for i:=1 to n do
begin
dem:=0;
for j:=i -1 downto 1 do
if a[i]<a[j] then inc(dem);
luu[a[i]]:=dem;
end;
for i:=1 to n do write(g,luu[i]:2);
writeln(g); writeln(g);

end;

procedure tim_a;

begin

fillchar(luu,sizeof(luu),0);

for i:=1 to n do

if b[i]>n-i then exit else

begin

j:=0;

dem:=0;

repeat inc(dem);

if luu[dem]=0 then j:=j+1;

until j>b[i];

luu[dem]:=i;

end;

for i:=1 to n do

write(g,luu[i]:2);

end;

BEGIN

nhap;

assign(g,gn);

rewrite(g);

tim_b;

tim_a;

close(g);

END.

cô ơi, hình như bài này là cho một xâu có nhiều khoảng trống, xuất ra xâu mà khoảng cách giữa hai từ chỉ còn 1 khoảng trống

28 tháng 4 2020

Nguyễn Lê Phước Thịnh : Nếu vậy thì phải là Tr an CoNG TOAN

Câu 1:

uses crt;

const fi='dayso.txt';

var f1:text;

a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

n:=0;

while not eoln(f1) do

begin

inc(n);

read(f1,a[n]);

end;

writeln('Binh phuong cua cac phan tu trong day so la: ');

for i:=1 to n do

write(sqr(a[i]):4);

close(f1);

readln;

end.

Câu 2:

uses crt;
const fo='hcn.txt';
var f:text;
d,r,cv,dt:real;
begin
clrscr;
assign(f,fo); rewrite(f);
write('nhap chieu dai:'); readln(d);
write('nhap chieu rong:'); readln(r);
if (d>0) and (r>0) and (d>=r) then
begin
cv:=(d+r)*2;
dt:=d*r;
writeln(f,'chieu dai la: ',d:4:2);
writeln(f,'chieu rong la: ',r:4:2);
writeln(f,'chu vi la: ',cv:4:2);
writeln(f,'dien tich la: ',dt:4:2);
end
else writeln('Vui long nhap lai');
close(f);
readln;
end.

Câu 1:

uses crt;

var a:array[1..100]of real;

n,i:integer;

tbc:real;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

tbc:=0;

for i:=1 to n do

tbc:=tbc+a[i];

writeln('Trung binh cong cua day so la: ',tbc/n:4:2);

readln;

end.

Câu 2:

uses crt;

var a:array[1..100]of integer;

n,i,max:integer;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do

if max<a[i] then max:=a[i];

writeln(max);

readln;

end.

28 tháng 4 2020

Thanks brooo

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('nhap chuoi:'); readln(st);

d:=length(st);

for i:=d downto 1 do

write(st[i]);

readln;

end.

27 tháng 4 2020

Thanks brooooo

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('nhap chuoi:');readln(st);

d:=length(st);

for i:=1 to d do

st[i]:=upcase(st[i]);

for i:=1 to d do write(st[i]);

readln;

end.

27 tháng 4 2020

Thanks broooo

uses crt;

var st:string;

t:char;

d,i,dem:integer;

begin

clrscr;

write('nhap xau:'); readln(st);

d:=length(st);

write('nhap ki tu:'); readln(t);

dem:=0;

for i:=1 to d do

if st[i]=t then inc(dem);

writeln('Trong xau co ',dem,' ki tu ',t);

readln;

end.