tìm chữ số lớn nhất trong xâu , n được nhập từ bàn phím

0 bình luận về “tìm chữ số lớn nhất trong xâu , n được nhập từ bàn phím”

1. program solonnhat;

   uses crt;

   var st:longint;

         i:byte;

         max:char;

   begin

        clrscr;

        write(‘Nhap xau: ‘);   readln(st);

        max:=”0;

        for i:=1 to n do 

             if (st[i] in [‘1’..9′]) and (st[i]>max) then max:=st[i];

        if pos(max,st)=0 then write(‘Khong co so de tim lon nhat’)

             else write(‘Chu so lon nhat la: ‘,max);

        readln;

   end.

   Bình luận