Question

1Nhập một xâu S nếu độ dài xấu S là số lẻ thì in ra kia từ giữa ngược lại in ra kì tự cuối

2 nhập một xâu S nếu kí tự cuối bảng kì tự kể cười thì in kí tự do ra màn hình

3 nhập một xâu S nếu xấu S là xấu đối xứng thì in ra màn hình nửa xấu đầu tiên

Answer 1

Câu 3:

uses crt;

var s:string;

d,i,kt:integer;

begin

clrscr;

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

d:=length(s);

kt:=0;

for i:=1 to d do

if s[i]<>s[d-i+1] then kt:=1;

if kt=0 then

begin

for i:=1 to d div 2 do

write(s[i]);

end;

readln;

end.