Viết chương trình nhập vào 2 số n,m. a) nếu m chia hết cho n thì in ra chi hết và ngược lại b) in ra số lơn trong 2 số vừa nhập.

0 bình luận về “Viết chương trình nhập vào 2 số n,m. a) nếu m chia hết cho n thì in ra chi hết và ngược lại b) in ra số lơn trong 2 số vừa nhập.”

1. program m_n;

   uses crt;

   var m,n:integer;

   begin

          clrscr;

          write(‘Nhap m: ‘);   readln(m);

          write(‘Nhap n: ‘);   readln(n);

          if m mod n=0 then writeln(‘a. Chia het’)

                 else writeln(‘a. Khong chia het’);

          if m>n then write(‘b. m lon hon’)

                 else if n>m then write(‘b. n lon hon’)

                        else write(‘c. m=n’);

          readln;

   end.

   Bình luận

2. uses crt;
   var n,m:longint;
   begin
   clrscr;
      write(‘n,m= ‘);readln(n,m);
      if m mod n=0 then writeln(‘m chia het cho n’)
      else writeln(‘m khong chia het cho n’);
      if m>n then writeln(‘m>n’) else
      if m<n then writeln(‘m<n’) else writeln(‘m=n’);
   readln
   end.

   Bình luận