Cứu tui với

[hix_hix1]

1/ viết CT nhập từ bàn phím nhập vào 2 xâu, sau đó in ra màn hình xâu lớn hơn,
ngược lại in ra thông báo 2 xâu bằng nhau
2/ viết CT cho phép nhập từ bàn phím 2 xâu sau đó in ra màn hình xâu ngược lại
3/ viết CT cho phép nhập từ bàn phím 1 xâu có khoảng trắng, sau đó in ra màn hình xâu không còn khoảng trắng
4/Viết CT cho phép nhập từ bàn phím 1 xâu gồm có chữ vào số. SAu đó in ra màn hình xâu còn là số

em bik mấy anh chị trong diễn đàn có khả năng giải được 4 câu này mà
giúp em với em càm ơn nhiều nhiều lắm!!!!!!!!!!!!!!

[vhtdhv]

Nhác quá. Khi nào mà ko làm được thì hãy hỏi. Mà mấy cái này mà ko biết thì Pótay luôn.

[a9_k62_nsl]

hì thôi mình tranh thủ câu bài ^^
1)
var
s1,s2:string;
begin
writeln (' nhap s1');
readln(s1);
writeln (' nhap s2');
readln(s2);
if length(s1)>length(s2) then
writeln (s1)
else
if length(s1)=length(s2) then
writeln (' hai xau bang nhau')
else
writeln (s2);
readln;
end.
2)
var
s1,s2:string;
i:integer;
begin
readln(s1,s2);
for i:=lemgth(s1) downto 1 do
write (s1[i]);
for length(s2) downto 1 do
write (s2[i]);
readln;
end.
3)
var
s1:string;
i:integer;
begin
readln(s1);
for i:=1 to length(S1) do
if s1[i]<>' ' then
write (s1[i]);
readln;
end.
4)
var
s:string;
i:integer;
begin
readln(S);
for i:=1 to length(s) do
if (s[i]<=9) and (s[i]>=0 ) then
write (s[i]) ;
readln;
end.

[kylobytes]

1.Sửa:

...
if(length(s1)>length(s2) then
   write(s1)
else
   if(length(s1)=length(s2)) then
       writeln('2 xau bang nhau')
   else
       write(s2);
... 

2.

begin
 readln(s1,s2);
 for i:=length(s1) downto 1 do
    write(s1***91;i***93;);
 for i:=length(s2) downto 1 do
    write(s2***91;i***93;);
readln;
end. 

3.

program xoacach;
var i:integer;
    str:string***91;50***93;;
begin
    write('Nhap xau: ');
    readln(str);
    for i:=1 to length(str) do
        if(str***91;i***93;=' ') then
            delete(str,i,1);
    for i:=1 to length(str) do
        write('Ket qua: ',str***91;i***93;);
    readln;
end. 

4.Sửa bài trên như sau:

...
if(s***91;i***93;>='0') and (s***91;i***93;<='9') then
... 

[leviet.gamer]

Các hạ quả là pro .Cám ơn

[hix_hix1]

mấy huynh pro wá cám ơn nhìu ^^^^^^^^