Phạm Vă

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

Nguyễn Lê Phước Thịnh
6 tháng 4 2021 lúc 12:39

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

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

d:=length(st);

for i:=d-2 to d do 

  write(st[i]:4);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Trung Nguyễn
Xem chi tiết
Đinh Đức Quảng
Xem chi tiết
Lê Phú
Xem chi tiết
Đức Kiên
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Lương Ngọc Anh
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Lê Đình Quý
Xem chi tiết