[r]
(1)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 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 dau:=dau*10; cuoi:=dau*10-1; for i:= dau to cuoi begin d:=i; if nt(i)=true then kt:=true else kt:=false; while kt=true 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 (2)