Viết chương trình pascal nhập vào từ bàn phím các số thực a,b và các nguyên dương m,n( m,n<10) rồi tính và đưa ra màn hình tổng T = a^n + b^m. Help me

0 bình luận về “Viết chương trình pascal nhập vào từ bàn phím các số thực a,b và các nguyên dương m,n( m,n<10) rồi tính và đưa ra màn hình tổng T = a^n + b^m. Help me”

1. Program BTT;
   Uses crt;
   Var a,b,t,aa,bb: extended;
       m,n,i,j: longint;
   Begin
           Clrscr;
           Write(‘Nhap a, b: ‘); Readln(a, b);
           Write(‘Nhap m, n: ‘); Readln(m,n);
           aa:=1; bb:=1;
           For i:=1 to n do
                   aa:=aa*a;
           For j:=1 to m do
                   bb:=bb*b;
           t:=aa+bb;
           Write(‘Tong la: ‘,t:0:2);
           Readln
   End.

   Bình luận