Nhập vào bàn phím 2 số nguyên dương M và N. Hãy so sánh M^N với N^M . Free pascal

0 bình luận về “Nhập vào bàn phím 2 số nguyên dương M và N. Hãy so sánh M^N với N^M . Free pascal”

1. uses crt;
   var s1,s2: real;
   i,m,n: integer;
   begin
   clrscr;
   s1:=1; s2:=1;
   write(‘Nhap m,n tuong ung: ‘); readln(m,n);
      for i:=1 to n do
        s1:=s1*m;
        for i:=1 to n do
        s2:=s2*n;
   if s1>s2 then writeln(‘M^N > N^M’) else 
    if s1<s2 then writeln(‘N^M > M^N’) else writeln(‘N^M = M^N’);
   readln;
   end.

   đã test mong đc vote

   Bình luận