tính chu vi hình chữ nhật ( trong pascal) mik đg gấp ai lm đúng mik vote 5*

0 bình luận về “tính chu vi hình chữ nhật ( trong pascal) mik đg gấp ai lm đúng mik vote 5*”

1. Program NG;

   Uses crt;

   Var a,b,P:integer;

   Begin

   Write (‘chieu dai’);

   Readln (a);

   Write (‘chieu rong’);

   Readln (b);

   P:=(a+b)*2;

   Writeln (‘Chu vi hinh chu nhat la’,P);

   Readln;

   End.

   Bình luận

2. uses crt;

     var a, b, cv: real;

   begin

     clrscr;

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

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

     cv:=(a+b)*2;

     writeln(‘Chu vi hinh chu nhat: ‘, cv);

     readln

   end.

   Bình luận