帮忙看看为什么不对

var n,i,j,s:longint;a:string;x:char;
begin
read(n,x);s:=0;
for i:=1 to n do
begin
a:=chr(i);
for j:=1 to length(a) do
if a[j]=x then inc(s);
end;
writeln(s);
end.

3 条评论

  • @ 2016-12-03 14:19:20

    var
    st:string;
    n, x, i, j, s:longint;
    begin
    read(n, x);
    s:=0;
    for i:=1 to n do begin
    str(i, st);
    for j:=1 to length(st) do if ord(st[j])-48=x then inc(s);
    st:=''
    end;
    write(s)
    end.

  • @ 2016-11-05 11:15:00

    这样x读进去是空格

  • @ 2016-11-05 11:14:58

    这样x读进去是空格

  • 1

信息

ID
1848
难度
5
分类
(无)
标签
递交数
16558
已通过
5790
通过率
35%
被复制
36
上传者