Fjzar

chắc là được. cảm ơn trước 

Ờ... vậy mai nhé.

program xau;

uses crt;

var s:string;

begin

clrscr;

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

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)=#32 do delete(s,pos(#32#32,s),1);

writeln('Xau sau khi chuan hoa:',s);

readln

end.

À à ok ! Bài này làm được để mình làm cho.

Ơ nếu có số thì có xet luôn không bạn ?

Ồ bạn đăng lạc đề rồi.... ở đây chỉ nói về lập trình pascal thôi.Nếu bạn muốn hỏi thì mình xin góp ý là bạn nên qua DDTH hỏi thì có thể sẽ có người trả lời cho bạn. Cảm ơn đã ghé chơi Chủ đề.

Cho mình xem cái ví dụ ?

Program doi_xung;

uses crt;

var i,n,j,k,l,p,x,y:integer;

s,m:string;

a:array[1..100] of integer;

function dx(n:integer):boolean;

var i,j,k,l:integer;

s,st,s1:string;

kt:boolean;

begin

str(n,s);

st:='';

kt:=false;

for i:=1 to length(s) do

st:=st+s[i];

if st=s then kt:=true;

dx:=kt;

end;

begin

clrscr;

write('Nhap so gia tri:');readln(n);

writeln('Nhap day:');

x:=wherex;

y:=wherey;

for i:=1 to n do

begin

read(a[i]);

gotoxy(x+3,y);

x:=x+3;

end;

s:='';

for i:=1 to n do

begin

str(a[i],m);

s:=s+m;

end;

if dx(s) then writeln('Day doi xung') else writeln('Day khong doi xung');

readln

end.

--Ok rồi đó bạn---

Good luck !

No

Khó thế ai làm được ... nếu ai vip hơn thì bảo nó làm coi

mai trả lời 

chảy chéo có tính không ?

Bạn nào muốn giai bài tập Tin thì vào đây(chỉ dành cho pascal thôi nhé).Cảm ơn!