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 đó?
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 đó?
By Camila
By Camila
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 đó?
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.