Lập chương trình nhập vào một xâu. Đưa ra màn hình 3 kí tự cuối cùng của xâu đó Bày nhanh hộ mình với ạ

1 câu trả lời

uses crt;
var s:string;
    d,i:integer;
begin
   clrscr;
   writeln('Nhap xau s: '); readln(s);
   d:=length(s);
   for i:=d-2 to d do write(s[i]);
end.

Câu hỏi trong lớp Xem thêm