1樓：匿名使用者
第一題，很簡單，我就不說了。
varg,s,b,k:longint;
begin
k:=0;
for b:=1 to 9 do
for s:=0 to 9 do
for g:=0 to 9 do
if (b<>s)and(s<>g)and(g<>b)and(s>(b+g)) and(not ((s+b) in [2,3,5,7,11,13,17,19])) then
begin
inc(k);
if k=9 then
begin
k:=1;
writeln;
end;
write(b,s,g,' ');
end;
readln;readln;
end.
第二題，求出5w以內的素數，一共有5133個。然後列舉5133^2判斷。樓上的做法會超時！
vara:array[0..6000]of longint;
b:array[0..50000]of boolean;
i,j,n,tot,k:longint;
find:boolean;
begin
fillchar(b,sizeof(b),1);
b[1]:=false;
for i:=2 to 50000 do
for j:=2 to 50000 div i do
b[i*j]:=false;
tot:=0;
for i:=1 to 50000 do
if b[i] then
begin
inc(tot);
a[tot]:=i;
end;
readln(n);
find:=false;
for i:=1 to tot do
if n mod a[i]=0 then
begin
k:=n div a[i];
for j:=1 to tot do
if (k mod a[j]=0)or(a[j]*a[j]>k) then break;
if k mod a[j]<>0 then
begin
find:=true;
break;
end;
end;
if find then writeln('it''s a tongtong number.') else
writeln('it''s not a tongtong number.');
end.
第三題。動態規劃。
vara:array[0..10]of longint;
s:array[0..10,0..10]of int64;
f:array[0..10,0..4]of int64;
n,i,j,k:longint; x:char;
function min(x,y:int64):int64;
begin
if x end; begin n:=0; while not seekeoln do begin read(x); inc(n); a[n]:=ord(x)-48; end; for i:=1 to n do begin s[i,i]:=a[i]; for j:=i+1 to n do s[i,j]:=s[i,j-1]*10+a[j]; end; for i:=1 to n do begin f[i,1]:=s[1,i]; for j:=2 to 4 do begin f[i,j]:=maxlongint; for k:=j-1 to i-1 do f[i,j]:=min(f[i,j],f[k,j-1]*s[k+1,i]); end; end; writeln(f[n,4]); readln;readln; end. 2樓： var x,a,b,c:integer; begin for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do if c>a+b then begin if x=8 then begin writeln;x:=0;end;inc(x);write(a,b,c,' ');end; end. var i,k,n:longint;zhi:array[1..1000]of boolean;ni:boolean; procedure toto; begin for i:=1 to n do begin zhi[i]:=true; for k:=2 to trunc(sqrt(i))do if i mod k=0 then begin zhi[i]:=false; break;end; end; for i:=1 to n do for k:=1 to n do if (zhi[i]=true)and(zhi[k]=true)and(i+k=n)then ni:=true; end; begin readln(n); toto; if ni=true then write('it is a tongtong number') else write('it is not a tongtong number'); end. 哪怕我是大牛我也要告訴你，缺那麼多，加你那看不懂得廢話，鴨梨很大啊 vara,b,n1,n2,x,y,z,c,f,h,m1,m2,m,n,mt,nt,r,t longint begin f 2 begin while f 3 do begin writeln 1.分數加法 2.分數減法 3.退出程式... 陣列是按行存放的所以定義陣列時要知道每行要多長，這就必須定義列的長度，行的長度可以不確定。在用陣列作為函式引數 傳遞的是所有元素的情況 的時候，傳遞的是陣列首地址，不能像那樣寫 問題 1，多維陣列的定義，主要是分配記憶體的問題。a i j 是陣列的陣列,意思是定義i個元素的陣列,每個元素都是一個含有... 1.在你打算學習c語言之前,你要下一個狠狠地決心.因為許多電腦愛好者在學習c語言的過程中,都會遇到困難,從而沒有堅持到最後.只有你下定狠狠地決心,才能學會c語言,才能學好c語言.2.要想學習好c語言,就要學會細心,耐心.c語言程式的編寫需要非常細心,因為一個標點符號的錯誤,可能導致程式的無法執行.3...Pascal語言 分數交叉加減運算
c語言，程式改錯，C語言的程式改錯
c語言程式問題，C語言程式問題？