uses crt;

begin

clrscr;

writeln(10+4*sqr(15-10)/6+4);

readln;

end.

var a,b,c: real;

begin

write('nhap a: ');readln(a);

write('nhap b: ');readln(b);

c:= (a+b)/2;

write('Gia tri cua bieu thuc c=(a+b)/2 la: ',c);

end.

(chạy thử ct đi ^^!)

Câu 2: 

uses crt;

var x,y:int64;

begin

clrscr;

readln(x,y);

writeln(x+y);

readln;

end.

a)\(15\) \(mod\) \(8\)

b)\(12\) \(div\) \(7\)

c)\((a+b)*(a+b)*(d+c)*(d+c)*(d+c)\)

d)\((25+b)*(25+b)*(25+b)*(25+b)*(25+b)*(25+b)\)

giúp mk đi các bạn

mk xin đấy

Câu 1:

b, 15*(4+30+12)

c, (a+b)^2*(d+e)^3

d, a*x^2+b*x+2*c

Câu 1 :

a) (a+b)*(a+b)*(d+e)

b) a*x*x+b*x*x+c*x

Câu 2: Mình không hiểu đề lắm? Đặt cái gì cơ?

Câu 3:

Uses crt;

Var S,a,b:real;

Begin

clrscr;

Writeln('Nhap chieu dai a = '); Readln(a);

Writeln('Nhap chieu rong b = '); Readln(b);

S := a*b;

Write('Dien tich hinh chu nhat la ', S );

Readln;

End.

Câu 1:

a) (a+b)*(a+b)*(d+e);

b) a*x*x+b*x*x+c*x

Câu 2:

Qui tắc đặt tên trong ngôn ngữ lập trình Pascal:

- Tên không bắt đầu bằng chữ số.

- Tên không có khoảng cách.

- Tên không được trùng với từ khóa.

- Các đại lượng khác nhau có tên khác nhau.

Program HOC24;

var a,b: integer;

D: longint;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

D:=2*(a+b);

write('D = ',D);

readln

end.

Bài 1:

-Kiểu dữ liệu phù hợp là kiểu số thực (real)

Bài 2:

a) a*x*x*x+b*x*x+c*x+d

b) 1/(1+x)*(1+x)-2/(x*x+1)

Bài 3: (Lười quá, nhường bạn khác nhé :D)