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.

bây bi sắck:))))

13 tháng 1

Câu hỏi bị thiếu nội dung rồi bạn kiểm tra lại nhé

     Nguyên liệu sản xuất (Tên file Promate.pas) Một người dùng số tiền là U đô-la và V Euro để mua một loại nguyên liệu sản xuất. Có N công ty nước ngoài bán nguyên liệu trên được đánh số từ 1 đến N. Công ty thứ i có giá bán Ai đô la/1 kg nguyên liệu và Bi Euro/1 kg nguyên liệu. Tuy nhiên, tại mỗi công ty chỉ bán nguyên liệu cho một khách hàng hoặc theo đô-la, hoặc theo Euro. Hãy giúp...
Đọc tiếp

     Nguyên liệu sản xuất (Tên file Promate.pas)

 Một người dùng số tiền là U đô-la và V Euro để mua một loại nguyên liệu sản xuất. Có N công ty nước ngoài bán nguyên liệu trên được đánh số từ 1 đến N. Công ty thứ i có giá bán Ai đô la/1 kg nguyên liệu và Bi Euro/1 kg nguyên liệu. Tuy nhiên, tại mỗi công ty chỉ bán nguyên liệu cho một khách hàng hoặc theo đô-la, hoặc theo Euro. Hãy giúp người đó tìm cách chọn ra 2 công ty để mua hàng sao cho số lượng nguyên liệu sản xuất có thể mua được là nhiều nhất.

Nhập vào: Từ bàn phím 3 số theo thứ tự : N U V (1 ≤ N ≤ 20; 1 ≤ U, V ≤ 1000) và N cặp số nguyên Ai, Bi (1 < Ai, Bi < 1000), mỗi cặp trên một dòng.

In ra : Số lượng nguyên liệu S(kg) người đó mua được với 2 chữ số thập phân.

Ví dụ:

NhậpIn raGiải thích

3   2   5

6    4

3    5

8    7

S=1.92

 

 

 

N = 3, U = 2, V = 5

Người đó mua nguyên liệu của công ty thứ 2 bằng đô-la và mua nguyên liệu của công ty thứ nhất bằng Euro.

0
12 tháng 7 2017

program bt;

uses crt;

var n,i,j:word;

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

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n+1 do a[i]:=0;

a[1]:=1;

for i:=0 to n do

begin

for j:=i+1 downto 2 do a[j]:=a[j]+a[j-1];

for j:=1 to i+1 do write(a[j]:3);

writeln;

end;

readln;

end.


banh

2 tháng 1 2018

chuẩn men

23 tháng 12 2019

var
i,j,n,k,x,vt:longint;
s,r,s1,s2:ansistring;
A:array[0..101] of boolean;
B:array[0..101] of longint;

BEGIN
assign(input,'gach.inp'); reset(input);
assign(output,'gach.out'); rewrite(output);

read(n,k);

for i:=1 to 101 do
A[i]:=true;

A[1]:=false;
for i:=1 to trunc(sqrt(101)) do
if (A[i] = true) then
for j:=2 to 101 div i do
A[i*j]:=false;

vt:=0;
for i:=1 to 101 do
if (A[i] =true) then
begin
inc(vt);
B[vt]:=i;
end;

for i:=1 to n do
begin
str(B[i],r);
s:=s+r;
end;

x:=length(s)-k-1;
vt:=1;
while (x >= 0) do
begin
for j:=vt to length(s)-x do
if (s[vt] > s[j]) then vt:=j;
s1:=s1+s[vt];
dec(x);
inc(vt);
end;

x:=length(s)-k-1;
vt:=1;
while (x >= 0) do
begin
for j:=vt to length(s)-x do
if (s[vt] < s[j]) then vt:=j;
s2:=s2+s[vt];
dec(x);
inc(vt);
end;

writeln(s);
writeln(s1);
writeln(s2);

close(input);
close(output);
END.

23 tháng 12 2019

không ai thèm trả lời thì thôi tự trl cho nó nhanh

23 tháng 11 2019

câu hỏi này bạn nên để chị @Nguyễn Minh Lệ trả lời giúp bạn

24 tháng 11 2019

Program hotrotinhoc;

var a,b,max,x,d,i,y: longint;

n,k,s: string;

begin

readln(n); s:=n;

while length(n)<>1 do

begini:=i+1;
k:=k+

s[i];

val(k,x);

delete(n,1,1);

val(n,y);

d:=x+y;

if d>max then

begin

max:=y+x;

a:=x;

b:=y;

end;

end;

write(a,' ',b);

readln

end.

2 tháng 4 2020

Lần lặp thứ

Giá trị của biến i

Giá trị của biến J

1

1

J= 0+3 = 3

2

2

J= 3+ 3= 6

3

3

J=6+3=9

4

4

J=9+3=12

5

5

J=12+3=15

18 tháng 3 2020

Từ khóa: program; uses; begin; end; writeln

Tên: CT_Dau_tien; Crt

19 tháng 3 2020

Từ khóa: program, uses, begin, writeln, End.

Tên: CT_Dau_tien, Crt

29 tháng 6 2020

Hoán đổi chứ không phải là hoán vị nhé bạn

Kết quả in ra màn hình là x=9,y=7

Đây là câu lệnh để hoán vị giá trị của x và y cho nhau.