讨论 - 水题——数字统计

讨论 / 水题——数字统计

Marx2002 2016-09-10 22:31:13

点我顶贴收藏删除

var n,m,i,j,ans:longint; s:string;

begin

readln(n,m);

for i:=n to m do

begin

str(i,s);

for j:=1 to length(s) do if s[j]='2' then inc(ans);

end;

write(ans);

end.

查看更多回复

提交回复

  快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号

    Processed in 0.0030	Second(s)
    Copyright (C) RQNOJ 2007-2019. All Rights Reserved.