Trả lời chủ đề

Bài 2.

uses crt;

var m,n,k:integer;

BEGIN

clrscr;

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

       write('Nhap n:');readln;

       write('Nhap k:');readln(k);

       if (m>0) and (n>0) and (k>0) then

          write('m^2=',m*m,', n^2= ',n*n,',k^2=',k*k)

          else if (m<0) and (n<0) and (k<0) then

          write('m^3=',m*m*m,', n^3= ',n*n*n,',k^3=',k*k*k)

          else write('m=',m,',n=',n,',k=',k);

readln;

END.