De thi Toan Tin hoc trong nha truong Bai 70

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]

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)