Question

[Eriken]

Viết chương trình in kết quả ra màn hình với x,y là số nguyên được nhập từ bàn phím

\(\left(3x^3y-\dfrac{1}{2}x^2+\dfrac{1}{5}xy\right).6xy^3\)

Answer 1

[Lê Phương Giang]

var x,y,s: real;

begin;

Readln(x,y);

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

Write ('Tong gia tri =' , s:2:1);

Readln;

End.

Answer 2

[Kiêm Hùng]

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.