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 (67.02 KB, 1 trang )
<span class='text_page_counter'>(1)</span>Bài 70/2001 - Mã hoá theo khoá (Dành cho học sinh THCS và THPT) {$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q+,R+,S+,T-,V+,X+} {$M 16384,0,655360} uses crt; Const MaxVal=256; Var n:Integer; S,KQ:String; a:array[0..MaxVal] of Integer; Procedure InPut; Var i:Integer; Begin CLrscr; Write('Nhap N=');Readln(n); For i:=1 to n do Begin Write('a[',i,']=');Readln(a[i]); End; Write('Nhap Xau:');Readln(S); End; Procedure Main; Var i,j:Integer; Begin if (Length(S) Mod n) <>0 then For i:=1 to n-(Length(S) Mod n) do S:=S+' '; KQ:=''; For i:=0 to (Length(S) Div n)-1 do For j:=(n*i)+1 to n*(i+1) do KQ:=KQ+S[a[j-(n*i)]+(n*i)]; Writeln('Xau Ma Hoa: ',KQ); End; Begin InPut; Main; Readln; End. (Lời giải của bạn Nguyễn Cao Thắng - Lớp 12A2 chuyên Vĩnh Phúc - tỉnh Vĩnh Phúc).
<span class='text_page_counter'>(2)</span>