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 ạ
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm
