社区讨论

请大神纠错

丁丁镜脯
P1056[NOIP 2008 普及组] 排座椅参与者 5已保存回复 5

讨论操作

快速查看讨论及其快照的属性，并进行相关操作。

当前回复
5 条
当前快照
1 份
快照标识符
@mi4ensng
此快照首次捕获于
2025/11/18 18:03
4 个月前
此快照最后确认于
2025/11/18 18:03
4 个月前
查看原帖
CPP
var
  m,n,k,l,d,i,j,a1,b1:longint;
  a,b:array[1..100000] of longint;
  s:array[1..4,1..2000] of longint;
begin
  readln(m,n,k,l,d);
  for i:=d downto 1 do begin
    for j:=1 to 4 do
    read(s[i,j]);
    readln;
  end;
  for i:=1 to 3 do
    for j:=1 to d-1 do
      if s[i,j]=s[i,j+1] then begin a1:=a1+1; a[a1]:=i; end;
  write(a[1]);
  for j:=2 to a1 do
  write(' ',a[j]);
  writeln;
  for i:=1 to d-1 do
    for j:=1 to 3 do
      if s[i,j+1]=s[i,j+1] then begin b1:=b1+1; b[b1]:=j; end;
  write(b[1]);
  for i:=2 to b1 do
  write(' ',b[i]);
end.

回复

共 5 条回复，欢迎继续交流。

正在加载回复...