Câu 1

-Viết phần khai báo:

var x,y,z:byte;  //số nguyên (0-255)

      k,l,m:real;   //số thực

      Kt,Lop,Truong:char;  //ký tự

      i,j:word;  // là số nguyên dương nhưng bé hơn 65535

-Tính tổng bộ nhớ cấp phát:

+ x,y,z thuộc kiểu byte (1 byte) ->1*3=3 byte

+k,l,m thuộc kiểu real (6 byte) -> 6*3=18 byte

+Kt,Lop,Truong thuộc kiểu char (1 byte) ->1*3=3 byte

+i,j thuộc kiểu word (2byte) -> 2*2=4 byte

==> Tổng bộ nhớ cấp phát là: 3+18+3+4=28  (byte).

Câu 2

USES crt;

VAR p,a,b,c,s:real;   {Co the khai bao a,b,c:word; neu do dai cac canh la so nguyen duong.}

BEGIN

           clrscr;

           write('Nhap do dai canh thu nhat:'); readln(a);

           write('Nhap do dai canh thu 2:'); readln(b);            {Nhap do dai cac canh}

           write('Nhap do dai canh thu 3:'); readln(c);

            p:=(a+b+c)/2;                 //Tinh p

            s:=sqrt( p*(p-a)*(p-b)*(p-c) );   //Tinh dien tich

            write('Dien tich tam giac la:',s:0:3);   //Ghi dien tich ra man hinh

            readln

END.