viết chương trình tìm số lớn nhất trong các chữ số của N với N cho từ tệp tunhien.inp gồm 1 dòng duy nhất. kết quả ghi ra tệp tunhien.out là kết quả duy nhát của bai toán
1 câu trả lời
uses crt;
var f:text; i,n:longint; max:char; s:string;
begin
clrscr;
assign(f,'tunhien.inp');reset(f);
readln(f,n);
close(f);
assign(f,'tunhien.out');rewrite(f);
str(n,s);
max:='0';
for i:=1 to length(s) do
if s[i]>max then max:=s[i];
writeln(f,max);
close(f);
end.
Câu hỏi trong lớp
Xem thêm
