Đang tải... (xem toàn văn)
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.[r]
(1)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 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) S:=S+' '; KQ:=''; For i:=0 to (Length(S) Div n)-1 For j:=(n*i)+1 to n*(i+1) KQ:=KQ+S[a[j-(n*i)]+(n*i)]; Writeln('Xau Ma Hoa: ',KQ); End; Begin InPut; Main; Readln; End (Lời giải bạn Nguyễn Cao Thắng - Lớp 12A2 chuyên Vĩnh Phúc - tỉnh Vĩnh Phúc) (2)