Hùng Nguyễn

Program CT_2;

Uses Crt;

Var x, y, P: Integer;

Begin

Clrscr;

Writeln('Nhap x, y = ');

Readln(x,y);

P:= (3*x*x*x*y - 1/2*Sqr(x) + 1/5*x*y)*6*x*y*y*y;

Writeln('Vay tich cua bieu thuc la = ',P:0:1);

Readln;

End.

detective

Program Tinh_dien_tich;

Uses Crt;

Var a, b, c, cn, tg, S: Real;

Begin

Clrscr;

Writeln(' Nhap a, b de tinh hcn =');

Readln(a,b);

Writeln('Nhap a, c de tinh tg =');

Readln(a,c);

cn := a*b;

tg:= (a*c)/2;

S:= tg + cn;

Writeln('Vay dien tich hinh tren la =',S:0:1);

Readln;

End.