Ngày Lập Trình Viên Ngày lập trình viên là ngày 256 của năm, tức là vào ngày 13/09 năm thường hoặc 12/09 năm nhuận. Năm nay Trường làng Big-O dự định sẽ tổ chứ
Ngày Lập Trình Viên Ngày lập trình viên là ngày 256 của năm, tức là vào ngày 13/09 năm thường hoặc 12/09 năm nhuận. Năm nay Trường làng Big-O dự định sẽ tổ chức một kì thi lập trình dành cho tất cả các bạn học sinh trong trường cùng tham gia. Ban tổ chức quyết định tổ chức M nội dung thi đấu cho các bạn học sinh tham gia. Sau quá trình đăng ký ban tổ chức ghi nhận được N học sinh đăng ký dự thi. Vì số lượng các bạn học sinh tham gia có thể sẽ rất đông, trong khi các phòng thực hành tin học của trường chỉ có tổng cộng K máy tính nên ban tổ chức quyết định sẽ chia các thí sinh thi đấu thành từng bảng đấu nhỏ. Mỗi bảng không quá K thí sinh, các thí sinh đấu loại trực tiếp, người chiến thắng trong bảng đấu đó sẽ được vào vòng tiếp theo, cứ như vậy cho đến khi tìm được người chiến thắng. Nếu một bảng đấu mà chỉ có 1 thí sinh thì thí sinh đó sẽ được đặc cách vào vòng sau mà không cần thi đấu. Trường cần biết chính xác cần tổ chức ít nhất bao nhiêu trận đấu để hoàn thành được tất cả các nội dung thi đấu để có thể lên kế hoạch thời gian tổ chức cụ thể. Dữ liệu nhập Dòng đầu tiên chứa 3 số nguyên N, M, K (1 \leq N, M, K \leq 10^61N,M,K10 6 ) lần lượt là số thí sinh đăng ký, số nội dung thi đấu và số lượng máy tính có thể sử dụng, các nội dung thi đấu được đánh số từ 1 đến M Dòng thứ 2 chứa N số nguyên, số nguyên thứ i là nội dung thi đấu mà học sinh i đã đăng ký. Dữ liệu xuất Một số nguyên duy nhất là số trận đấu tối thiểu cần tổ chức Ví dụ inputcopy 6 2 2 1 1 2 1 2 1 outputcopy 4
Lời giải 1 :
program ngay_lap_trinh_vien;
uses crt;
var a:array[1..1000] of integer;
i,j,n,m,k,dem,t,v,e : integer;
s,s1 : string;
st :array[1..225] of string;
begin
read(n); read(m); read(k);
v:=1; dem:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do
begin
str(a[i],s1);
s:=s+s1;
end;
for i:=1 to length(s) do
begin
t:=0;
for j:=1 to i-1 do
if s[i] = s[j] then t:=1;
if t = 0 then
begin
st[v] := s[i];
inc(v);
end;
end;
dem:=0; e:=0;
for i:=1 to v-1 do
begin
for j := 1 to length(s) do
if st[i] = s[j] then inc(dem);
if ( dem mod k =0 ) then
e:= e + (dem div k);
if ( dem mod k <>0) then
e:= e + (dem div k) + 1;
dem :=0;
end;
e:= e + m-1 ;
write(e);
end.
Thảo luận
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK