Bài tập 1 . Nhập vào 2 cạnh của hình chữ nhật . In ra màn hình diện tích và chu vi của nó

0 bình luận về “Bài tập 1 . Nhập vào 2 cạnh của hình chữ nhật . In ra màn hình diện tích và chu vi của nó”

1. Program NN;
   Uses crt;
   Var a,b,p,s: extended;
   Begin
           Clrscr;
           Write(‘Nhap a,b: ‘); Readln(a,b);
           s:=a*b;
           p:=(a+b)*2;
           Writeln(‘S = ‘,s:0:2);
           Writeln(‘P = ‘,p:0:2);
           Readln
   End.

   Bình luận

2. uses crt;
   var a,b:longint;
   begin
   clrscr;
      write(‘a,b= ‘);readln(a,b);
      writeln(‘Chu vi: ‘,(a+b)/2:0:2);
      writeln(‘Dien tich: ‘,a*b);
   readln
   end.

   Bình luận