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.

Chào các bạn, chúc các bạn đón tết Canh Tý vui vẻ, hạnh phúc bên gia đình ------------------------------------------------------------------------------------------ Câu 1: Nhân dịp cuối năm, cô giáo mời các bạn đến nhà cô để ăn bánh gato (biết chiếc bánh của cô hình tròn) trong đêm giao thừa, vì một số bạn nhà xa không thể tham gia được . Yêu cầu : Cho biết chiếc bánh phải cắt bao nhiêu nhát để chia...
Đọc tiếp

Chào các bạn, chúc các bạn đón tết Canh Tý vui vẻ, hạnh phúc bên gia đình

------------------------------------------------------------------------------------------

Câu 1: Nhân dịp cuối năm, cô giáo mời các bạn đến nhà cô để ăn bánh gato (biết chiếc bánh của cô hình tròn) trong đêm giao thừa, vì một số bạn nhà xa không thể tham gia được .

Yêu cầu : Cho biết chiếc bánh phải cắt bao nhiêu nhát để chia đủ cho số người có trong bữa tiệc (kể cả cô giáo) để số nhát cắt là ít nhất và vừa đủ số người có trong bữa tiệc.

- Dữ liệu vào : n số bạn tham gia ( 1<=N<=40)

- Dữ liệu ra: Số nhát cắt để chia đều chiếc bánh

Ví dụ :

INPUT OUTPUT
1 1

Câu 2:

Trong một cuộc thi thế vận hội các vận động viên gắn thẻ số báo danh lần lượt từ 1 đến n (nghĩa là có n vận động viên) . Sau khi tổ chức xong kì thi ban tổ chức yêu cầu thí sinh có số báo danh có 2 chữ số trở lên phải cắt đều mỗi chữ số theo chiều rộng và chiều dài là 4x10 . Và thí sinh có số báo danh 1 chữ số phải cắt đều theo chiều rộng và chiều dài là 4x10. Sau khi cắt xong ban tổ chức cho sắp xếp lần lượt các số theo như ban đầu đã cắt và cách đều nhau (VD dãy số 11-13 sẽ được sắp xếp: 1 1 1 2 1 3). Vận động viên tìm ra chữ số thứ k trong dãy số đã cắt trên sẽ được một giải thưởng vinh dự.

Yêu cầu : Hãy giúp các vận động viên tìm ra chữ số thứ k trong dãy đó

Dữ liệu vào : Gồm 1 dòng n,k (0<n,k<=2x106)

Dữ liệu ra : Một dòng duy nhất chữ số thứ k

TVH.INP TVH.OUT
13 10 0

------------------------------------------------------------------------------------------

6

Câu 2:

const fi='tvh.inp';
fo='tvh.out';
var n,d,dem,sl,s2cs,s3cs,s4cs,s5cs,s6cs,s7cs,k,i,d1:longint;
st,st1,stk:string;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n,k);
str(n,st);
d:=length(st);
case d of
1: write(9);
2: begin
sl:=n-9;
dem:=9+sl*2;
end;
3: begin
s2cs:=(99-10)+1;
s3cs:=n-99;
dem:=9+s2cs*2+s3cs*3;
end;
4: begin
s2cs:=(99-10)+1;
s3cs:=(999-100)+1;
s4cs:=n-999;
dem:=9+s2cs*2+s3cs*3+s4cs*4;
end;
5: begin
s2cs:=(99-10)+1;
s3cs:=(999-100)+1;
s4cs:=(9999-1000)+1;
s5cs:=n-9999;
dem:=9+s2cs*2+s3cs*3+s4cs*4+s5cs*5;
end;
6: begin
s2cs:=(99-10)+1;
s3cs:=(999-100)+1;
s4cs:=(9999-1000)+1;
s5cs:=(99999-10000)+1;
s6cs:=n-99999;
dem:=9+s2cs*2+s3cs*3+s4cs*4+s5cs*5+s6cs*6;
end;
7: begin
s2cs:=(99-10)+1;
s3cs:=(999-100)+1;
s4cs:=(9999-1000)+1;
s5cs:=(99999-10000)+1;
s6cs:=(999999-1000000)+1;
s7cs:=n-999999;
dem:=9+s2cs*2+s3cs*3+s4cs*4+s5cs*5+s6cs*6+s7cs*7;
end;
end;
if k<=dem then
begin
i:=1;
d1:=0;
repeat
str(i,st1);
d1:=d1+length(st1);
i:=i+1;
until d1>=k;
stk:=st1[length(st1)-(d1-k)];
writeln(f2,stk);
end;
close(f1);
close(f2);
end.

Câu 1:

uses crt;
var n:integer;
begin
clrscr;
write('nhap so ban hoc sinh tham gia: '); readln(n);
if n mod 2=1 then writeln(n/2:1:0)
else writeln(n+1);
readln;
end.

22 tháng 1 2020

Lưu ý : Đây không phải là một cuộc thi.

-Phần thưởng là thẻ cào điện thoại 20k+2GP cho bạn nào có kết quả chính xác nhất . Hạn cuối nạp bài 00:00:00 24/01/2020

Trong kỳ thi học sinh giỏi môn Tin học, em là người đạt giải đặc biệt. Ban tổ chức cho phép em chọn các phần thưởng cho mình. Các phần thưởng xếp thành một dãy được đánh số từ 1 đến N (0 ≤ N ≤ 10000), phần thưởng thứ i có giá trị là ai (1 ≤ ai ≤ 100). Em được phép chọn các phần thưởng cho mình theo nguyên tắc không chọn 3 phần thưởng liên tiếp nhau trong dãy. Em hãy lập chương...
Đọc tiếp

Trong kỳ thi học sinh giỏi môn Tin học, em là người đạt giải đặc biệt. Ban tổ chức cho phép em chọn các phần thưởng cho mình. Các phần thưởng xếp thành một dãy được đánh số từ 1 đến N (0 ≤ N ≤ 10000), phần thưởng thứ i có giá trị là ai (1 ≤ ai ≤ 100). Em được phép chọn các phần thưởng cho mình theo nguyên tắc không chọn 3 phần thưởng liên tiếp nhau trong dãy. Em hãy lập chương trình chọn ra các phần thưởng sao cho tổng giá trị của các phần thưởng nhận được là lớn nhất.

Dữ liệu: Cho trong file PTHUONG.INP gồm các dòng:

- Dòng đầu tiên là số phần thưởng N.

- Dòng tiếp theo ghi N số ai (1 ≤ i ≤ N).

Kết quả: Ghi ra file PTHUONG.OUT gồm ba dòng:

- Dòng đầu ghi tổng giá trị lớn nhất của các phần thưởng đã chọn và số lượng các phần tử được chọn đó.

- Dòng tiếp theo ghi vị trí của các phần thưởng đã chọn theo thứ tự trong dãy.

- Dòng cuối cùng ghi giá trị của các phần thưởng đã chọn theo thứ tự trong dãy.

Ví dụ:

PTHUONG.INP PTHUONG.OUT

7

6 9 1 3 5 10 4

32 5

1 2 4 6 7

6 9 3 10 4

1
20 tháng 2 2020

uses crt;

type mang= array[0..10000 ] of byte;

var a,d,m:mang; dd:array[1..20,1..400] of byte;

b:array [1..10000] of boolean;

r,dem, t,n,max,i,j:integer;

f:text;

procedure doc;

var i:integer;

begin

assign(f,'pthuong.inp');

reset(f);

readln(f,n);

for i:=1 to n do

readln(f,d[i]);

close(f);

end;

function kt( c:mang):boolean;

var i,j:longint;

q:boolean;

begin

i:=1;

q:=true;

while (i<=r-2) and q do

begin

j:=1;

while c[i+j-1]+1=c[i+j] do

j:=j+1;

if j>=3 then q:=false else q:=true;

i:=i+1;

end;

kt:=q;

end;

Procedure print;

var i,tong: byte;

begin if kt(a)=true then

begin dem:=dem+1;

tong:=0;

for i:=1 to r do

begin

dd[dem,i]:= a[i];

tong:=tong+d[a[i]];

end; m[dem]:=tong;

end;

end;

Procedure Find(k:byte);

var j: byte;

begin

if k>r then print else

begin

for j:=1 to n do

if b[j] and (j>a[k-1]) then

begin

a[k]:=j; b[j]:=false;

Find(k+1);

b[j]:=true;

end;

end;

end;

begin

clrscr;

doc;

dem:=0;

r:= n-(n div 3);

for t:=1 to n do

b[t]:=true; a[0]:=0;

Find(1);

max:=m[1];

for i:=1 to dem do

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

assign(f,'PTHUONG.OUT');

rewrite(f);

writeln(f,max);

for i:=1 to dem do

if max=m[i] then

begin

j:=1;

while (dd[i,j] <>0) do

begin

write(f,dd[i,j]:2);

j:=j+1;

end;

end;

close(f);

end.

Bạn tham khảo bộ code này nhé.

21 tháng 2 2020

Cảm ơn nhiều ạ.

Đề bài: Nhập vào một dãy số nguyên A gồm N phần tử (N \(\le\) 1000). Hãy tìm số lớn nhất, số bé nhất và các chỉ số đâu tiên của chúng. Yêu cầu: Input: Dòng 1 là số N. Dòng 2 là dãy số nguyên A. Output: Dòng 1 là số lớn nhất và chỉ số đầu tiên của nó. Dòng 2 là số bé nhất và chỉ số đầu tiên của nó. Ví dụ: Input Output 5 14 15 18 17 18 18 3 14...
Đọc tiếp

Đề bài: Nhập vào một dãy số nguyên A gồm N phần tử (N \(\le\) 1000). Hãy tìm số lớn nhất, số bé nhất và các chỉ số đâu tiên của chúng.

Yêu cầu:

Input: Dòng 1 là số N. Dòng 2 là dãy số nguyên A.

Output: Dòng 1 là số lớn nhất và chỉ số đầu tiên của nó. Dòng 2 là số bé nhất và chỉ số đầu tiên của nó.

Ví dụ:

Input Output

5

14 15 18 17 18

18 3

14 1

Giải thích: Trong dãy số trên, số lớn nhất là 18 và số bé nhất là 14. Có 2 ô chứa số 18 là ô có chỉ số 3 và ô có chỉ số 5 nên ta chỉ chọn chỉ số 3. Có 2 ô chứa số 14 là ô có chỉ số 1 nên ta chỉ chọn chỉ số 1. Ta có kết quả như ở Output.

Mọi người có thể thêm lời dẫn như 'Nhap so N: ' cho bài làm sinh động hơn. Phần Input & Output ở Ví dụ chỉ xét tới các giá trị cần xử lí thôi nên không cho các lời dẫn được.

1
26 tháng 5 2020

Program HOC24;

var i,n,vt1,vt2,max,min: integer;

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

begin

readln(n);

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

readln;

max:=0; min:=32000;

for i:=1 to n do

begin

if a[i]>max then

begin

max:=a[i];

vt1:=i;

end;

if a[i]<min then

begin

min:=a[i];

vt2:=i;

end;

end;

writeln(max,' ',vt1);

write(min,' ',vt2);

readln

end.

Các số nguyên dương: 3748, 58, 859, 32435465768 được gọi là các số đơn điệu do nếu quan sát các chữ số của các số này, ta thấy chúng luân phiên tăng giảm hoặc giảm tăng. Chẳng hạn: 3<7>4<8 và 3>2<4>3<5>4<6>5<7>6<8 Số chỉ có một chữ số là số đơn điệu chiều dài 1. Yêu cầu: Viết chương trình xác định số chữ số đầu tiên lớn nhất tạo thành số đơn điệu của một số cho trước. ...
Đọc tiếp

Các số nguyên dương: 3748, 58, 859, 32435465768 được gọi là các số đơn điệu do nếu quan sát các chữ số của các số này, ta thấy chúng luân phiên tăng giảm hoặc giảm tăng. Chẳng hạn:

3<7>4<8 và 3>2<4>3<5>4<6>5<7>6<8

Số chỉ có một chữ số là số đơn điệu chiều dài 1.

Yêu cầu: Viết chương trình xác định số chữ số đầu tiên lớn nhất tạo thành số đơn điệu của một số cho trước.

Dữ liệu vào: Cho trong tập tin văn bản WIGGLE.INP, gồm 1 dòng duy nhất chứa 1 số nguyên dương duy nhất có không quá 75 chữ số.

Kết quả: Cho trong tập tin văn bản WIGGLE.OUT, chứa 1 số nguyên dương duy nhất chỉ số chữ số đầu tiên lớn nhất tạo thành số đơn điệu của số tương ứng trong tập tin dữ liệu.

Ví dụ:

WIGGLE.INP WIGGLE.OUT
3748 4

2
10 tháng 2 2020

Bạn tham khảo nhé : Câu hỏi của Nguyễn Tấn Tài - Tin học 11 | Học trực tuyến

GIUP MINH VS NHA MK DANG CAN GAPBờm và Cuội chơi trò chơi đoán số như sau:  Bờm chọn lấy hai số nguyên dương 𝑋, 𝑌 (𝑋 > 𝑌) rồi thông báo cho Cuội biết một dãy số thỏa mãn: trong dãy có một phần tử bằng tổng 𝑋 + 𝑌, một phần tử khác bằng hiệu 𝑋 − 𝑌  Nhiệm vụ của Cuội là đoán hai số 𝑋, 𝑌. Trò chơi khá khó nhưng sau nhiều lần chơi, Cuội biết được Bờm rất thích...
Đọc tiếp

GIUP MINH VS NHA MK DANG CAN GAP

Bờm và Cuội chơi trò chơi đoán số như sau:  Bờm chọn lấy hai số nguyên dương 𝑋, 𝑌 (𝑋 > 𝑌) rồi thông báo cho Cuội biết một dãy số thỏa mãn: trong dãy có một phần tử bằng tổng 𝑋 + 𝑌, một phần tử khác bằng hiệu 𝑋 − 𝑌  Nhiệm vụ của Cuội là đoán hai số 𝑋, 𝑌. Trò chơi khá khó nhưng sau nhiều lần chơi, Cuội biết được Bờm rất thích chọn cặp số giá trị lớn. Vì vậy, để tính toán dễ hơn, trong mỗi ván chơi Cuội sẽ cho bạn biết dãy số Bờm đưa ra và nhờ bạn xác định tích 𝑃 = 𝑋 × 𝑌 lớn nhất có thể phù hợp với dãy đó (nghĩa là tồn tại cặp số (𝑋, 𝑌) sao cho tích của chúng bằng 𝑃 mà tổng và hiệu của chúng đều xuất hiện trong dãy Bờm đưa ra). Dữ liệu  Dòng 1: số nguyên 𝑁 (2 ≤ 𝑁 ≤ 50) là số phần tử của dãy Bờm đưa ra  Dòng 2: 𝑁 số nguyên dương đôi một phân biệt là các phần tử dãy Bờm đưa ra, các số đều trong phạm vi 1 … 100. Kết quả  Dòng 1: số nguyên là tích lớn nhất tính được. Số này chắc chắn tồn tại vì Bờm không bao giờ chơi gian dối. Ví dụ BDOANSO.INP BDOANSO.OUT 3 1 4 5 6Bờm và Cuội chơi trò chơi đoán số như sau:  Bờm chọn lấy hai số nguyên dương 𝑋, 𝑌 (𝑋 > 𝑌) rồi thông báo cho Cuội biết một dãy số thỏa mãn: trong dãy có một phần tử bằng tổng 𝑋 + 𝑌, một phần tử khác bằng hiệu 𝑋 − 𝑌  Nhiệm vụ của Cuội là đoán hai số 𝑋, 𝑌. Trò chơi khá khó nhưng sau nhiều lần chơi, Cuội biết được Bờm rất thích chọn cặp số giá trị lớn. Vì vậy, để tính toán dễ hơn, trong mỗi ván chơi Cuội sẽ cho bạn biết dãy số Bờm đưa ra và nhờ bạn xác định tích 𝑃 = 𝑋 × 𝑌 lớn nhất có thể phù hợp với dãy đó (nghĩa là tồn tại cặp số (𝑋, 𝑌) sao cho tích của chúng bằng 𝑃 mà tổng và hiệu của chúng đều xuất hiện trong dãy Bờm đưa ra). Dữ liệu  Dòng 1: số nguyên 𝑁 (2 ≤ 𝑁 ≤ 50) là số phần tử của dãy Bờm đưa ra  Dòng 2: 𝑁 số nguyên dương đôi một phân biệt là các phần tử dãy Bờm đưa ra, các số đều trong phạm vi 1 … 100. Kết quả  Dòng 1: số nguyên là tích lớn nhất tính được. Số này chắc chắn tồn tại vì Bờm không bao giờ chơi gian dối. Ví dụ BDOANSO.INP 3 1 4 5 BDOANSO.OUT  6

0
6 tháng 6 2020

sai 2 lỗi cô ơi

6 tháng 6 2020

3 lỗi

31 tháng 12 2017

đây chỉ là bài ví dụ cho bạn áp dụng nhé:

var i,j,k,n,m:longint; f1,f2:text; S,St:string; function ktsnt(n:qword):boolean; var k:qword; begin ktsnt:=false; k:=2; if n<2 then exit; if n=2 then ktsnt:=true; while k*k <= n do begin if n mod k = 0 then exit; inc(k); end; ktsnt:=true; end; {---------------------------------------------------------------} function daonguoc(n:qword):boolean; begin str(n,S);St:=''; for i:=length(S) downto 1 do St:=St+S[i]; val(St,k); if ktsnt(k) then daonguoc:=true else daonguoc:=false; end; {---------------------------------------------------------------} begin assign(f1,'daonguoc.inp');reset(f1); assign(f2,'daonguoc.out');rewrite(f2); readln(f1,n,m); for j:=n to m do if daonguoc(j) then writeln(f2,j); close(f1);close(f2);

end.
31 tháng 12 2017

thông cảm nha mik chỉ còn bài mẫu từ lâu của mik mà mik hok quên rồi

ko thể giúp bài của bạn nha