Tin học Nhập vào một số nguyên N trong pascal,tìm chữ số lớn nhất trong số N đó 21/07/2021 By Charlie Nhập vào một số nguyên N trong pascal,tìm chữ số lớn nhất trong số N đó
progam chuso_max; uses crt; var n:longint; max:byte; begin clrscr; write(‘Nhap so: ‘); readln(n); max:=0; while n>0 do begin if n mod 10>max then max:=n mod 10; n:=n div 10; end; write(‘Chu so lon nhat la: ‘,max); readln; end. Trả lời