社区讨论

听取WA声一片,求调

kkanyukanyun
P10262[GESP样题 六级] 亲朋数参与者 1已保存回复 0

讨论操作

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

当前回复
0 条
当前快照
1 份
快照标识符
@mljistz0
此快照首次捕获于
2026/02/12 21:54
7 天前
此快照最后确认于
2026/02/15 16:15
4 天前
查看原帖
听取WA\color{red}\bold{WA}声一片,,求调
JAVASCRIPT
program luogu;
var
  p,i,j,len:integer;
  S:string;
  s:int64;
  a,dp:array[0..137] of int64;
begin
  readln(p);
  readln(S);
  for i:=0 to p-1 do
    dp[i]:=0;
  len:=length(S);
  s:=0;
  for i:=1 to len do
  begin
    for j:=0 to p-1 do
    begin
      a[j]:=dp[j];
      dp[j]:=0;
    end;
    for j:=0 to p-1 do
    begin
      dp[(j*10+(ord(S[i])-ord('0'))) mod p]:=dp[(j*10+(ord(S[i])-ord('0'))) mod p]+a[j];
    end;
    dp[(ord(S[i])-ord('0')) mod p]:=dp[(ord(S[i])-ord('0')) mod p]+1;
    s:=s+dp[0];
  end;
  writeln(s);
end.

回复

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

正在加载回复...