Bài 49:

program so_max;

uses crt;

var s:string;

      i,max,so,vt:byte;

begin

       clrscr;

       write('Nhap so: ');  readln(s);

       max:=0;   vt:=1;

       for i:=1 to length(s) do

              begin

                     val(s[i],so);

                     if so>max then 

                            begin

                                   max:=so;

                                   vt:=i;

                            end;

              end;

       writeln('Chu so lon nhat la: 'max)

       write('Chi so nho nhat la: ',vt);

       readln;

end.

Bài 50

program so_min;

uses crt;

var s:string;

      i,min,vt,so:byte;

begin

       clrscr;

       write('Nhap so: ');  readln(s);

       min:=9; vt:=1;

       for i:=1 to length(s) do

              begin

                     val(s[i],so);

                     if so<=min then

                            begin

                                   min:=so;

                                   vt:=i;

                            end;

              end;

       writeln('Chu so nho nhat la: ',min);

       write('Vi tri lon nhat la: ',vt);

       readln;

end.

Bài 51:   (Nếu số cuối là 0 thì vẫn in số 0 ở đầu: vd: 810 đảo là 018)

program dao_so;

uses crt;

var s,st:string;

     i:byte;

begin

       clrscr;

       write('Nhap so: ');  readln(s);

       st:='';

       for i:=length(s) downto 1 do

              st:=st+s[i];

       write('So dao la: ',st);

       readln;

end.

Bài 51:   (Nếu số cuối là 0 thì không in số 0 ở đầu: vd: 810 đảo là 18)

program dao_so;

uses crt;

var s,st:string;

     i:byte;

begin

       clrscr;

       write('Nhap so: ');  readln(s);

       st:='';

       for i:=length(s) downto 1 do

              st:=st+s[i];

       while st[1]='0' do delete(s,1,1);

       write('So dao la: ',st);

       readln;

end.