Nhập 1 xâu bất kỳ từ bàn phím?In ra màn hình 2 giá trị ở cuối xâu?
2 câu trả lời
*Cách 1: dùng biến string để lưu kết quả
program kitu_2cuoi;
uses crt;
var s,st:string;
begin
clrscr;
write('Nhap xau: '); readln(s);
st:=s[length(s)-1]+s[length(s)];
write('Hai ki tu cuoi la: ',st);
readln;
end.
*Cách 2: dùng biến đếm chạy for...do
program kitu_2cuoi;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=length(s)-1 to length(s) do write(s[i]);
readln;
end.
var s: string;
n, i: byte;
Begin
Write('nhap xau: '); readln(s);
n:=length(s);
For i:=n-1 to n do write(s[i]);
Readln
End.
