Viết chương trình nhập số nguyên dương n. In ra chữ số lớn nhất.

0 bình luận về “Viết chương trình nhập số nguyên dương n. In ra chữ số lớn nhất.”

1. program chusolonnhat;
   uses crt;
   var n,max,m:longint;
     begin
       clrscr;
       write(‘Nhap n: ‘);   readln(n);
       m:=n;
       max:=m mod 10;
       m:=m div 10;
       while m<>0 do
         begin
           if m mod 10>max then max:=m mod 10;
           m:=m div 10;
         end;
       writeln(‘Chu so lon nhat cua ‘,n,’ la: ‘,max);
       readln
     end.

   Bình luận

2. uses crt;
   var n,max:longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      repeat
         if n mod 10>max then max:=n mod 10;
         n:=n div 10;
      until n=0;
      writeln(‘Chu so lon nhat: ‘,max);
   readln
   end.

   Bình luận