Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a) (1/(b+2))*(a*a+c)=5
b) (k*k)+((k+1)*(k+1)) < > (k+2)*(k+2)
c) 8*x-7>1
d) (b*b)-(4*a*c) >=0
e) (1/n)*(1/(n+i))*(1/(n+2)) <0,01
f) (a-3)*(a+5)=0
g) ((a+c)*h)/2 < > 1
h) 2*x+3 <= 25*y;
k) x >= (m+5)/(2*a);
l)3,14*(R*R) > a*a
program bai1;
var s,n:longint;
begin
write('N= ');readln(n);
s:=1;
for i:=2 to n do
s:=s+1/(sqr(i)*(sqr(i)+1);
write('s= ',s);
readln
end.
a. 5x3 + 2x2 - 18x + 25 = 5*x*x*x + 2*x*x - 18*x + 25
c. \(\dfrac{2a^2+2c^2-a}{4}\)=(2*a*a+2*c*c-a)/4
d. \(\dfrac{x+y}{x-y}\)=(x+y)/(x-y)
Câu 2:
-Giống: Đều có tác dụng đọc dữ liệu
-Khác:
+Read: Đọc xong không xuống dòng
+Readln: Đọc xong rồi xuống dòng
Câu 3:
a) a*x*x*x+b*x*x*x+c*x+d
b) (4*sqr(x)-7*x-5)/(x-7)
c) (a+b)/(a-b)-(a-b)/(a+b)
Câu 4:
a) Integer;
b) Real;
c) Real;
Câu 1 bạn xem lại đề
không có quy tắc viết từ khóa trong pascal nhé bạn
Bạn tự khai báo nhé!;
Ảnh nhỏ thì nhấn mở hình ảnh trong tab mới nha
4...
begin
repeat
write('N= '):
readln(n);
until n>0;
s:=0;
for i:=1 to n do
s:=s+1/n;
write('s= ',s);
readln
end.
a) 1/(b+2)*(sqr(a)+c)=5;
b) sqr(k)+sqr(k+1)<>sqr(k+2);
c) (8*x-7)>1;
d) sqr(b)-4*a*c>=0;
đ) (1/n)*(1/(n+1))*(1/(n+2))<0.01;
e) (a-3)*(a+5)=0