2017.6.4测试题一 k好数

SSL_lzx

于 2017-06-28 20:43:40 发布

阅读量347

点赞数 2

CC 4.0 BY-SA版权

分类专栏：竞赛(测试)题

本文链接：https://blog.youkuaiyun.com/SSL_lzx/article/details/73863809

竞赛(测试)题专栏收录该内容

59 篇文章

订阅专栏

本篇博客介绍了一个使用Pascal编程语言解决的问题：读取两个整数n和k，然后计算从1到n中所有不超过k的数字组成的整数个数。通过双重循环和条件判断实现了这一功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
 s:string;
 n,k,i,j,t,p,ans:longint;
begin
 readln(n,k);
 for i:=1 to n do
  begin
   p:=0;
   str(i,s);
   for j:=1 to length(s) do//每一位
    if ord(s[j])-48>k then begin//如果有一位大于就退出
                            p:=1;//标记
                            break;
                           end;
   if p=0 then inc(ans);//没有就加1
  end;
 writeln(ans);
end.