Viết chương trình pascal: Có một tin nhắn được mã hóa và giấu trong một xâu văn bản trước khi gửi đi. Quy tắc mã hóa tin nhắn là thay mỗi chữ cái trong tin nhắn thành một chữ cái đứng cách nó k vị trí trong bảng chữ cái tiếng Anh theo quy tắc xoay vòng, các ký tự không phải chữ cái thì không thay đổi. Trong xâu có thể có nhiều tin nhắn, giữa các tin nhắn được ngăn cách nhau bởi dấu #. Biết rằng tin nhắn có độ dài lớn nhất là tin nhắn cần tìm. Nếu có nhiều tin nhắn có cùng chiều dài thì tin nhắn đầu tiên tìm thấy là tin nhắn cần giải mã. Yêu cầu: Cho trước một xâu S dài không quá 255 ký tự và một số nguyên dương k. Hãy tìm và giải mã tin nhắn được giấu trong xâu S.

Đáp án + các bước giải thích:

                    ↓↓↓

program oken;
uses crt;
type gion_han = 1..26;
var s: string;
    k: gion_han;
    i,j,dem,dem2,max,vt: byte;
    l: array [1..255] of byte;
begin
    clrscr;
    write('Nhap xau(viet hoa neu la chu cai va cuoi xau phai co dau #): '); readln(s);
    write('Nhap so k(chi duoc nhap tu so 1->26): '); readln(k);
    dem:=0; dem2:=0; j:=0;
    for i:=1 to length(s) do
            if (s[i] = '#') then
                begin
                    j:=j+1;
                    if j=1 then
                        l[j]:=i-1;
                    if j>=2 then
                        l[j]:= i-j-l[j-1];
                end;
    max:=l[1]; vt:=1;
    for i:=j downto 2 do
        if l[i]>= max then
            begin
                max:=l[i];
                vt:=i;
            end;    
    for i:=1 to length(s) do
        if (s[i] = '#') then
            begin
                dem:=dem+1; 
                if dem=vt then
                    for j:=(i-1) downto (i-max) do
                        if (s[j] in ['A'..'Z']) then
                            if (ord(s[j]) = (k+64)) then
                                dem2:=dem2+1;
            end;
    writeln('So lan xuat hien: ',dem2);
    readln;
end.

→ thuhien2806 ←