viết chương trình nhật vào một xâu kí tự, đếm số kí tự xuất hiện trong xâu và đảo ngược xâu đó?
2 câu trả lời
uses crt;
var xau1,xau2:string;
dem,i:byte;
begin
clrscr;
write('Nhap xau: '); readln(xau1);
for i:=1 to length(xau1) do
begin
xau2:=xau1[i]+xau2;
inc(dem);
end;
writeln('trong xau co: ',dem,' ki tu');
write('xau sau khi dao la: ',xau2);
readln;
end.
program xau;
uses crt;
var s1,s2:string;
d,i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s1);
for i:=1 to length(s1) do
begin
s2:=s1[i]+s2;
inc(d);
end;
writeln('Xau co: ',d,' ki tu');
write('Xau dao la: ',s2);
readln
end.
