free pascal习题某本书从1开始,小明算了算,总共出现了202个数1,求书有多少页

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/08 21:23:09

free pascal习题某本书从1开始,小明算了算,总共出现了202个数1,求书有多少页
free pascal习题
某本书从1开始,小明算了算,总共出现了202个数1,求书有多少页

free pascal习题某本书从1开始,小明算了算,总共出现了202个数1,求书有多少页
var
i,j:longint;
begin
i:=0;
j:=0;
while j<202 do
begin
inc(i);
if i mod 100=1 then inc(j);
if i div 10 mod 10=1 then inc(j);
if i div 100=1 then inc(j);
end;
writeln(i);
end.   

现码的你看看对不对~满意望采纳谢谢!

free pascal习题某本书从1开始,小明算了算,总共出现了202个数1,求书有多少页 有没有人推荐一本高中的,有好基础的,很多都是典型例题的free pascal习题书, Free Pascal怎样产生从1到1000的100个随机数rt free pascal常见语句 求几道 初学 free pascal free pascal 黑洞6174 free pascal 习题把下列代数式写成Pascal表达式1/2(eu+e-u):-(a3+b3)y4:sin2(x+0.5)+3cos(2x+4):cos(x=y)/sin(|x|+|y|)的平方根 Pascal 也分 Turbo Pascal 和 Free Pascal 的 推荐的三种语言是 Free Pascal ,Lazarus ,dec-c++ 上面是从知道里复制来的.请问,Delphi7和里面说到的Turbo Pascal和Free Pascal可以说是什么关系呢?Free Pascal ,Lazarus ,dec- pascal语言编程问题(free pascal求1—N中的素数的个数.(1 free pascal怎样产生随机数 Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal? 斐波那契 FREE PASCAL菲波那契数列(fbnq.pas)菲波列为1,1,2,3,5,8,13,21,…其元素产生的规则是前两个数为1,从第三个数开始,每个数等于它前面两个数之和.输入n(n 从1到9中选取3个数,要使没有两个数相邻的现象,有哪些选法?多少种?Free Pascal 做 free pascal求解输出圆周率小数点后1000000 位本题目限制代码长度,最大长度为:4096字节 求Free Pascal程序问题如下:第一行输入一个正整数n(1 free pascal 求最大公约数与最小公倍数 FREE PASCAL,输入两个数,求最小公倍数 free pascal 求最大公约数与最小公倍数