新手村之循环！循环！循环！

最新推荐文章于 2025-07-16 10:30:00 发布

原创最新推荐文章于 2025-07-16 10:30:00 发布 · 295 阅读

0 ·

CC 4.0 BY-SA版权

本文集提供了一系列编程问题的解决方案，包括数字操作、级数求和等常见算法题目，使用了直接且有效的方法来解决问题。

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

P1008 三连击代码：
总：优美的暴力或打表。

var
  i,j,a,b,c:longint;
  v:array [0..10] of boolean;
  f:boolean;
begin
  for i:=123 to 345 do
    begin
      fillchar(v,sizeof(v),0);
      a:=i; b:=i*2; c:=i*3;
      for j:=1 to 3 do
        begin
          v[a mod 10]:=true;
          v[b mod 10]:=true;
          v[c mod 10]:=true;
          a:=a div 10; b:=b div 10; c:=c div 10;
        end;
      f:=true;
      for j:=1 to 9 do
        f:=f and v[j];
      if f then writeln(i,' ',i*2,' ',i*3);
    end;
{
  writeln('192 384 576');
  writeln('219 438 657');
  writeln('273 546 819');
  writeln('327 654 981');
}
end.

P1035 级数求和代码：
总：暴力。

var
  a:real;
  s,i,n:longint;
begin
  readln(n);
  i:=2; a:=1; s:=1;
  while a<=n do
    begin
      a:=a+1/i;
      s:=s+1;
      i:=i+1;
    end;
  write(s);
end.

P1307 数字反转代码：
总：字符串倒着输出。

var
  s:string;
  l,i:longint;
begin
  readln(s);
  if s[1]='-' then
    begin
      write('-');
      delete(s,1,1);
    end;
  l:=length(s);
  while (s[l]='0') and (l>1) do dec(l);
  for i:=l downto 1 do
    write(s[i]);
end.

P1423 小玉在游泳代码：
总：暴力。

var
  i:longint;
  n,m:real;
begin
  read(n); m:=2;
  i:=0;
  while n>0 do
    begin
      n:=n-m;
      m:=m*0.98;
      inc(i);
    end;
  write(i);
end.

P1424 小鱼的航程(改进版)
总：暴力。

var
  n,m,ans:longint;
begin
  readln(n,m); ans:=0;
  while m>0 do
    begin
      if n>7 then n:=n-7;
      dec(m);
      if n<6 then ans:=ans+250;
      inc(n);
    end;
  write(ans);
end.

P1980 计数问题
总：同上。

var
  n,i,l,j,m:longint;
  a:array ['0'..'9'] of longint;
  s:string;
begin
  read(n,m);
  for i:=1 to n do
    begin
      str(i,s);
      l:=length(s);
      for j:=1 to l do
        inc(a[s[j]]);
    end;
  write(a[chr(m+48)]);
end.