本人原创Pascal标程

var
  i,j,k,num,ans,x,num2:longint;
  s:ansistring;
begin
  readln(s);
  k:=1;
  ans:=0;
  while k<=length(s) do
    begin
      num:=0;
      while (s[k]>='0')and(s[k]<='9') do
        begin
          num:=(num*10+ord(s[k])-48)mod 10000;
          inc(k);
        end;
      while s[k]='*' do
        begin
          num2:=0;
          inc(k);
          while (s[k]>='0')and(s[k]<='9') do
            begin
              num2:=(num2*10+ord(s[k])-48)mod 10000;
              inc(k);
            end;
          num:=(num*num2)mod 10000;
        end;
      ans:=(ans+num)mod 10000;
      inc(k);
    end;
  writeln(ans);
end.

3 条评论

  • @ 2016-12-11 10:54:27

    sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
    bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb

  • @ 2016-11-13 16:32:45

    程序请发到题解区,别在首页影响阅读

  • @ 2016-11-13 16:04:21

    谢谢

  • 1

信息

ID
1849
难度
7
分类
(无)
标签
递交数
3446
已通过
731
通过率
21%
被复制
2
上传者