Lập trình pascal dùng longint. lập trình đơn giản thôi nha Đề: Tìm chữ số chẵn lớn nhất của n. Nếu n không chứa chữ số chẵn thì output -1

0 bình luận về “Lập trình pascal dùng longint. lập trình đơn giản thôi nha Đề: Tìm chữ số chẵn lớn nhất của n. Nếu n không chứa chữ số chẵn thì output -1”

1. program sochan_max;
   uses crt;
   var n,so,max:longint;
   begin
       clrscr;
       write(‘Nhap n: ‘);   readln(n);
       max:=-1;
       while n>0 do
           begin
               so:=n mod 10;
               if (so mod 2=0) and (so>max) then max:=so;
               n:=n div 10;
           end;
       write(max);
       readln;
   end.

   Trả lời

2. uses crt;
   var n,max:longint;
   begin 
   clrscr;
      write(‘n=’);readln(n);
      max:=-1;
      while n<>0 do 
         begin
            if (n mod 10 mod 2=0)and(n mod 10>max) then 
               max:=n mod 10;
            n:=n div 10;
         end;
      writeln(max);
   readln
   end.

   Trả lời