2001 - MÃ HOÁ THEO KHOÁ(DÀNH CHO HỌC SINH THCS VÀ THPT){$A+,B-,...

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;

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);

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)