Program Ma_hoa;
Uses crt;
Var st: string;
Function MH(x: string): string;
Var Code, S: string;
i, c, j: integer;
Begin
Code:='abcdefghijklmnopqrstuvwxyz';
For j:=1 to length(x) do
Begin
If x[j]=' ' then S:=S+' '
Else For i:=1 to length(Code) do
If Code[i]=x[j] then
Begin
c:=((i+4) mod 26)+1;
S:=S+Code[c];
End;
End;
MH:=S;
End;
BEGIN
ClrScr;
Write('Nhap xau can ma hoa: '); Readln(st);
Writeln('Xau duoc ma hoa la: ',MH(st));
Readln;
END.
Cảm ơn bạn đã đọc câu trả lời của mk, chúc bạn học tốt! Cho mk câu trả lời hay nhất nha! Thanks!