viết chương trình tính diện tích hình chữ nhật

0 bình luận về “viết chương trình tính diện tích hình chữ nhật”

1. uses crt;

     var a, b, s: real;

   begin

     write(‘Nhap a = ‘); readln(a);

     write(‘Nhap b = ‘); readln(b);

     s:=a*b;

     writeln(‘Dien tich hinh chu nhat la: ‘, s);

     readln

   end.

   Bình luận

2. Uses crt;

   Var s, a, b: real;

   Begin

   Clrscr;

   Write(‘Nhap chieu dai a = ‘); readln(a);

   Write(‘Nhap chieu rong b = ‘); readln(b);

   s:=a*b;

   Writeln(‘Dien tich hinh chu nhat la: ‘,s:0:2);

   Readln

   End.

   Bình luận