p1008 三連擊 **：
總：優美的暴力或打表。
var
i,j,a,b,c:longint;
v:array [0.
.10] of boolean;
f:boolean;
begin
for i:=123
to345
dobegin
fillchar(v,sizeof(v),0);
a:=i; b:=i*2; c:=i*3;
for j:=1to3
dobegin
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:=1to9
do f:=f and v[j];
if f then writeln(i,' ',i*2,' ',i*3);
end;
end.
總：暴力。
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.
總：字串倒著輸出。
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 downto1do
write(s[i]);
end.
總：暴力。
var
i:longint;
n,m:real;
begin
read(n); m:=2;
i:=0;
while n>0
dobegin
n:=n-m;
m:=m*0.98;
inc(i);
end;
write(i);
end.
總：暴力。
var
n,m,ans:longint;
begin
readln(n,m); ans:=0;
while m>0
dobegin
if n>7
then n:=n-7;
dec(m);
if n<6
then ans:=ans+250;
inc(n);
end;
write(ans);
end.
總：同上。
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.
暴力出正解。（都是水題啊）新手村之迴圈！迴圈！迴圈！
p1008 三連擊 總 優美的暴力或打表。var i,j,a,b,c longint v array 0.10 of boolean f boolean begin for i 123 to345 dobegin fillchar v,sizeof v 0 a i b i 2 c i 3 for j...
洛谷訓練新手村之「迴圈！迴圈！迴圈！」題解
題目大意 找所有1 2 3格式的數。解題思路 列舉一下第乙個數，然後判斷根據第乙個數推導出來的第 二 三個數是不是三位數即可，並且放好包含了1至9即可。實現 如下 include using namespace std bool tmp 10 bool check int a for int i 1...
洛谷試煉場 新手村 迴圈！迴圈！迴圈！
題目描述 將1,2,9共9個數分成3組，分別組成3個三位數，且使這3個三位數構成1 2 3的比例，試求出所有滿足條件的3個三位數。輸入格式 沒有輸入 輸出格式 若干行，每行3個數字。按照每行第乙個數字公升序排列。c 源 include int main 迴圈結束時，n 9 的所有元素已賦值完畢 fo...