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)
Bạn đang xem bài 70/ - 100 DE TIN HSG CO DAP AN