Đề bài: Viết chương trình nhập từ bàn phím 1 xâu kí tự chỉ gồm 2 loại kí tự là chữ và số. Đưa ra màn hình - Xâu vừa nhập được theo chiều ngược - Toàn bộ các chữ cái có trong xâu
2 câu trả lời
uses crt;
var s:string; i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=length(s) downto 1 do write(s[i]);
writeln;
for i:=1 to length(s) do
if (s[i]>='A') and (s[i]<='z') then write(s[i]);
readln
end.
program ct;
uses crt;
var i:integer;
s:string;
begin
clrscrl;
write'(nhap xau:'=);readln(s);
for i:=length(s) downto 1 do write(s[i]);
writeln;
for i:=1 to length(s) do
if (s[i]>='A') and (s[i]<='Z') then write(s[i])
readln
end.
Câu hỏi trong lớp
Xem thêm
