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 câu trả lời
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.
