Lập trình từ bàn phím các số thực a,b rồi đưa ra màn hình trung bình cộng các bình phương của 2 số đó

0 bình luận về “Lập trình từ bàn phím các số thực a,b rồi đưa ra màn hình trung bình cộng các bình phương của 2 số đó”

1. uses crt;
   var a,b:real;
   begin
         clrscr;
         write(‘Nhap 2 so thuc: ‘); readln(a,b);
         writeln(‘Trung binh cong cac binh phuong cua ‘,a:0:2,’; ‘,b:0:2,’: ‘,(a*a+b*b)/2:0:2);
         readln;
   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var a,b,tbc: extended;
   Begin
           Clrscr;
           Write(‘Nhap a, b: ‘); Readln(a,b);
           tbc:=(sqr(a)+sqr(b))/2;
           Write(‘Trung binh cong cac binh phuong cua hai so do la: ‘,tbc:0:2);
           Readln
   End.

   Bình luận