NKLETTER spoj – Gửi thư

Nguồn đề bài: http://vn.spoj.com/problems/NKLETTER/ 1. Đề bài NKLETTER spoj Vị Giám đốc công ty XYZ cần gửi một văn bản quan trọng tới một đối tác của mình. Văn bản là một xâu S các chữ cái la tinh in thường. Để bảo mật nội dung văn bản, ông Giám đốc gửi 2 bức thư. Bức […]

Continue reading


Code sàng số nguyên tố c++ và pascal

Tham khảo code sàng nguyên tố: Code sàng nguyên tố pascal const nmax=1000; var SNT:array[0..nmax+1] of boolean; procedure sangnt; var i,j:longint; begin fillchar(snt,sizeof(snt),true); snt[1]:=false; i:=2; while i<=trunc(sqrt(nmax)) do begin while snt[i]=false do inc(i); for j:=2 to nmax div i do snt[i*j]:=false; inc(i); end; for i:=1 to nmax do if snt[i]=true then write(i,’ ‘); end; begin […]

Continue reading