Câu 3 (2,5điểm)  Tổng số nguyên tố

      Mọi số tự nhiên đều có thể viết được dưới dạng tổng hai số nguyên tố. Viết chương trình thực hiện tách một số tự nhiên thành tổng của hai số nguyên tố

Ví dụ:

ai kiểm tra coi bài mình sai chỗ nào vs nó chạy ko dc 

Thuật toán:

const fi='Goldbach.inp';
      fo='Goldbach.out';
Var i,n:longint;
    f:text;
Procedure rf;
Begin
Assign(f,fi);
Reset(f);
Read(f,n);
close(f);
end;
Function KTNT(k:longint):boolean;
Begin
For i:=2 to trunc(sqrt(k)) do if k mod i=0 then exit(false);
exit(true);
end;
Procedure ef;
Begin
Assign(f,fo);
Rewrite(f);
For i:=n-1 downto 2 do if (KTNT(i))and(KTNT(n-i)) then Begin Write(f,n,'=',i,'+',n-i);Break;end;
close(f);
end;
Begin
rf;
ef;
end.

Nêu cấu tạo, chức năng của đại não.

Hình dạng tế bào cơ và tế bào thần kinh ? Ai trả lời giúp mình với, mình đang cần gấp !

biện pháp nghệ thuật và tác dụng của bài tinh thần yêu nc của nhân dân ta và ý nghĩa văn chương

Nêu 1 số biện pháp bảo vệ em và ng thân khỏi bị nhiễm điện

vl

Bò sát nước ta có phong phú ko?

Khí hậu của nước ta có ảnh hưởng gì đến sự hát triênr cả bò sát?

Lập dàn ý sách là người bạn lớn của con người