xâu có độ dài không xác định được nhập từ bàn phím .Viết chương trình in xâu đó ra màn hình theo thứ ngược lại sau khi bỏ cac chữ số giúp mk vs ạ
2 câu trả lời
uses crt;
var s,d:string;
i:integer;
begin
write('nhap xau:');readln(s);
d:='';
for i:=length(s) downto 1 do
d:=d+s[i];
writeln('do dai cua xau do la :',length(s));
writeln('xau theo thu tu dao nguoc la : ',d);
readln
end.
Var S:string;
i:byte;
begin
write ('hay nhap s');
readln(S);
For i := length(s) downto 1 do if (S[i]<0) and (S[i] >9) then write (S[i]:3);
readln
end.
Câu hỏi trong lớp
Xem thêm
