Viết CT nhập vào hai cạnh của hình chữ nhật và in ra diện tích hình chữ nhật

0 bình luận về “Viết CT nhập vào hai cạnh của hình chữ nhật và in ra diện tích hình chữ nhật”

1. uses crt;

   var a,b,S : real;

   begin

   clrscr;

   write(‘nhap chieu dai cua hinh chu nhat la: ‘);readln(a);

   write(‘nhap chieu rong cua hinh chu nhat la: ‘);readln(b);

   S:=a*b;

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

   readln;

   end.

   Trả lời