Question

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 đó

Answer 1

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

write('Ba ki tu cuoi cung cua xau ',st,' la: ');

for i:=d-3 to d do

write(st[i]);

readln;

end.