Cầu cao nhân giúp ạ.
1. Nhập vào chương trình xâu: " Anh thanh ơi, anh Thanh hỡi". Thay anh => em.
2. Nhập vào 1 xâu họ và tên. Trả về giá trị đâu là họ, đâu là tên đệm, đâu là tên
3. Viết chương trình nhập mật khẩu nếu nhập đúng "vừng ơi" thì hiển thị ra là đúng. Cho nhập 3 lần sai, nếu quá 3 lần thì thông báo sai.
1.VD thanh , thì trong thanh có chứa kí tự anh . Vậy có chuyển thành them không bạn?. Và Anh thì cũng chuyển thành em không? Bạn nêu rõ đề bài chứ. Chẳng hạn bạn cho ví dụ thì người giúp sẽ dễ dàng hơn.
2.
Program HOC24;
var s,st,st1:string;
begin
write('Nhap ho va ten : '); readln(s);
write('Ho la : ');
while s[1]=#32 do delete(s,1,1);
while s[length(s)]=#32 do delete(s,length(s),1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);
while s[1]<>#32 do
begin
write(s[1]);
delete(s,1,1);
end;
st:=s;
writeln;
write('Ten dem la :');
while s[length(s)]<>#32 do
delete(s,length(s),1);
writeln(s);
write('Ten la : ');
while st[length(st)]<>#32 do
begin
st1:=st1+st[length(st)];
delete(st,length(st),1);
end;
for i:=length(st) downto 1 do write(st1[i]);
readln
end.
3.
Program HOC24;
var s,st,st1:string;
j: byte;
begin
write('Nhap mat khau : '); readln(s);
j:=0;
if s='vung oi' then write('Dung');
while (s<>'vung oi') and (j<2) do
begin
j:=j+1;
write('Mat khau sai, nhap lai mat khau : '); readln(s);
if s='vung oi' then write('Dung');
end;
if j=2 then write('Sai');
readln
end.
