Viết chương trình nhập từ bàn phím 1 sâu kí tự (gồm cả chữ và số). Đưa ra màn hình – Xâu đảo ngược – Xâu có chữ cái đầu viết hoa và đưa ra màn hình

0 bình luận về “Viết chương trình nhập từ bàn phím 1 sâu kí tự (gồm cả chữ và số). Đưa ra màn hình – Xâu đảo ngược – Xâu có chữ cái đầu viết hoa và đưa ra màn hình”

1. Var i:integer;

   S: string;

   Begin

   Readln(S);

   For i:= length(S) downto 1 do

   Write(S[i]);

   For i:=1 to n do

   If S[i] in [‘a’..’z’] then S[i]:= upcase(S[i]);

   Writeln;

   Write(S);

   End.

   Bình luận

2. program oken;
   uses crt;
   var s: string;
       i: byte;
   begin
       clrscr;
       write(‘Nhap 1 xau bat ky: ‘); readln(s);
       write(‘Xau dao nguoc: ‘);
       for i:=length(s) downto 1 do
           write(s[i]);
       writeln;
       s[1]:=upcase(s[1]);
       writeln(‘Xau moi: ‘,s);
       readln;
   end.

   Bình luận