哥德巴猜想pascal程序,哥德巴猜想 pascal 程式

2023-01-29 23:50:51 字數 775 閱讀 8254

1樓:

vary:array[1..10000] of integer;

x:boolean;

a,b,n,z,m,k:integer;

begin

read(n);

k:=1;

z:=n div 2;

for a:=3 to n do

if (n mod 2=0) or (n>6) thenbegin

x:=true;

for b:=2 to a-1 do

if a mod b=0 then x:=false;

if x=true then

begin

y[k]:=a;

k:=k+1;

end;

end;

for a:=1 to k do

if y[a]<>0 then

begin

x:=true;

m:=n-y[a];

for b:=2 to m-1 do

if m mod b=0 then x:=false;

if (x=true) and (m<>1) then writeln(n,'=',y[a],'+',m);

end;

end.

輸入 12

輸出 12=5+7

12=7+5

2樓:

1.tmp:=true

2.j3.not(tmp)

4.ans

火字旁,加「巴」,這個字怎麼打出來?讀pa的第一聲,麻煩幫我打一下,看看行不行

火巴,讀音p 四川方言,一般的字典上是沒有這個字的。含義多種,具體運用在詞條中。我打不出這個字來,四川報紙經常能看見這個字 樓主,你是不是打錯字了!新華字典都查不到這字 火字旁一個巴怎麼打出來啊 火巴,讀音p 四川方言,字典上是沒有這個字的。含義多種,具體運用在詞條中。我打不出這個字來,四川報紙經常...