YOMEDIA
NONE

Trong thời đại ngày nay, thông tin cá nhân của mỗi người dễ dàng bị xâm nhập bởi rất nhiều công nghệ hiện đại nghe lén. Chính vì vậy một đôi bạn muốn bảo mật thông tin cho nhau đã có sáng kiến nghĩ ra cách trao nhau những thông điệp mà người khác đọc hoặc nghe ko hiểu gì. Thông điệp của học là 1 câu với nhiều từ đc phân biệt bởi kí tự trống và đc sắp xếp lộn xộn thành câu vô nghĩa. Để hiểu nội dung thông điệp người bạn đã gửi cho mình, hai người bạn đã quy ước trước 1 bộ mã là 1 dãy số nguyên dương có số lượng tương ứng vs số từ nhằm giải mã thành công câu đó

Input Output

Luon chuc hoc ban gioi luon

2 4 1 6 3 5

Chuc ban luon luon hoc gioi
Theo dõi Vi phạm
ADSENSE

Trả lời (1)

  • Program hotrotinhoc;

    var s,s1,st,st1: string;

    d,i,j,n,d1,code : integer;

    a: array[1..249] of string;

    begin

    Readln(s); s:=s+#32;

    readln(s1);

    i:=0;

    while length(s)<>0 do

    begin

    d:=pos(#32,s);

    st:=copy(s,1,d-1);

    inc(i);

    a[i]:=st;

    delete(s,1,d);

    end;

    for j:=1 to length(s1) do

    if s1[j] in ['0'..'9'] then

    begin

    val(s1[j],d1,code);

    st1:=st1+a[d1]+#32;

    end;

    for i:=1 to length(st1) do

    if st1[i] in ['A'..'Z'] then st1[i]:=chr(ord(st1[i])+32);

    st1[1]:=Upcase(st1[1]);

    write(st1);

    readln

    end.

      bởi thuy linh 17/11/2021
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

ZUNIA9
 

 

YOMEDIA
AANETWORK
OFF