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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận