Viết chương trình nhập vào 1 xâu kí tự và thực hiện các công việc sau
a, hiển thị xâu ra màn hình
b, hiển thị độ dài xâu ra màn hình
c, hiển thị xâu theo chiều ngược lại
Mn giúp mk vs ạ
Viết chương trình nhập vào 1 xâu kí tự và thực hiện các công việc sau a, hiển thị xâu ra màn hình b, hiển thị độ dài xâu ra màn hình c, hiển thị xâu
By Reese
Program VD;
Var s:string;
i: byte;
Begin
Write(‘nhap xau s:’);
Readln(n);
For i:=length(s) downto 1 do
Write(s[i]);
Read(s[i]);
Write(‘so ko tu trong xau là:’,length(s));
Readln;
End.
program oken;
uses crt;
var s: string;
i: byte;
begin
clrscr;
write(‘Nhap xau: ‘); readln(s);
writeln(‘So luong ki tu: ‘,length(s));
write(‘Xau dao nguoc: ‘);
for i:=length(s) downto 1 do
write(s[i]);
readln;
end.