Code kiem tra so sieu nguyen to
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (26.22 KB, 1 trang )
<span class='text_page_counter'>(1)</span>var dau,cuoi,i,d,n:longint; kt:boolean; f1,f2: text; function nt(m:longint):boolean; var t,j:longint; begin t:=0; for j:=1 to m do if m mod j =0 then t:=t+1; if t=2 then nt:= true else nt:= false ; end; begin assign(f1,'sieunguyento.inp'); assign(f2,'sieunguyento.out'); reset(f1); rewrite(f2); readln(f1,n); dau:=1; for i:=1 to n-1 do dau:=dau*10; cuoi:=dau*10-1; for i:= dau to cuoi do begin d:=i; if nt(i)=true then kt:=true else kt:=false; while kt=true do begin d:=d div 10; if nt(d)=true then kt:=true else kt:=false; end; if d=0 then write(f2,i,' '); end; close(f1); close(f2); end..
<span class='text_page_counter'>(2)</span>
