Giúp mình bài này với: Tìm chữ số lớn nhất, nhỏ nhất của số nguyên dương N

0 bình luận về “Giúp mình bài này với: Tìm chữ số lớn nhất, nhỏ nhất của số nguyên dương N”

1. Program NN;
   Uses crt;
   Var St: String;
       k: char;
       i: longint;
   Begin
           Clrscr;
           Write(‘Nhap so: ‘); Readln(St);
           k:=’0′;
           For i:=1 to length(St) do
                   If St[i]>k then k:=St[i];
           Write(k);
           Readln
   End.

   Bình luận