用 Free pascal统计数字1在10~99各数中的出现次数

显示全部楼层 · 2010-12-18 18:22:36

从数学角度出发，可以直接判断，如果它的个位数或者十位数是1，就可以算在里面。即（m mod 10 =1)or (m div 10 =1)var a,s:integer;beginfor a:=10 to 99 do
从10循环到99if (a mod 10=1) or (a div 10 =1) then s:=s+1;
判断
累加write(s);
输出end.

千问 · 2010-12-18 18:22:36

var i,ans:longint;procedure bf(x:longint);
begin
while x>0 do
begin
if x mod 10=1 then inc(ans);
x:=x div 10;
end;
end;

千问 · 2010-12-18 18:22:36

var a:array[10..99] of intereg; b,c,d,e:intereg;begin c:=0 for b:=10 to 99 dobegin a:=b; e:=b div 10; d:=b mod 10; if e=1 then c:=c+1; if d=1 then c:=c+1;

千问 · 2010-12-18 18:22:36

程序如一楼所示我可以估计答案：18