-
张3
发布于 2026-01-10
-
收藏
program jiechen;{$APPTYPE CONSOLE}usesSysUtils,high;varn,m,k:ansistring;i,j:integer;beginm:='1';for i:=1 to 1997 do beginstr(i:0,k);m:=mult(m,k);end;j:=0;for i:=1 to len(m) do if m[i]='7' then inc(j);writeln(m);writeln(j);readln;end.结果有497个7。
