Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1254
1145
const fi='goldbach.inp';
fo='goldbach.out';
var n,i,a,b:longint;
function checkprime(x:longint):boolean;
var dem:byte;
begin
for i:=2 to trunc(sqrt(n)) do if x mod i = 0 then exit(false) else exit(true);
end;
begin
assign(input,fi);
reset(input);
readln(n);
close(input);
assign(output,fo);
rewrite(output);
for a:=n div 2 downto 2 do
begin
if (checkprime(a)) then
begin
b:=n-a;
if (checkprime(a)) and (checkprime(b)) then
begin
write(a,' ',b);
break;
end;
end;
end;
close(output);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
2377
1794
uses crt;
var a,b,n,i,j:longint; d:text;
function nt(a:longint):boolean;
var i:longint;
begin
i:=2;
while(a>2)and(a mod i<>0)do inc(i);
nt:=i=a;
end;
begin
clrscr;
assign(d,'GOLDBACH.pas'); reset(d);
readln(d,n);
If n mod 2<>0 then writeln('Nhap lai') else
begin
for i:=1 to n do
for j:=1 to n do
if(nt(i))and(nt(j))and(i+j=n)then begin a:=i; b:=j; end;
writeln(a,'+',b,'=',n);
end;
close(d);
readln
end.
Đây là cách ngắn ,đơn giản nhất ,nếu các bạn thấy hay nhớ vote cho m nha
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
1
2
0
thanks bn
1254
14258
1145
Chúc bạn học tốt ^^
2377
47178
1794
Hơi dài đấy