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.
ờ nhưng tại sao kêu t tag vậy Hùng, m tag ko đc ak ?
@Nguyễn Trần Thành Đạt
Tú Nguyễn B (Erik) Trương Quang Dũng hành động đi các bạn, đây là sân chơi của các bạn, cộng đồng đang chờ bạn, gia đình chờ bạn, bạn bè chờ bạn ><
Program bai1;
uses crt;
var n , i : integer;
s: real;
begin
clrscr;
write('nhap so n ='); readln(n);
for i:= 1 to n do
s:=s+sqrt((n-1)+sqrt(n));
writeln('tong s = ' ,s:4:2);
readln;
end.
program bai1;
uses crt;
var
begin
clrscr;
write('Nhap so N=);readln(n);
s:=0;
for i:=i to n do
s:=s+sqrt(i+sqrt(i+1));
writeln('Tong la ',s);
readln
end.
program dgv;
uses crt;
var x,y,z,n,i: integer;
p,S,A: real;
begin
clrscr;
writeln('Nhap x: '); read(x);
writeln('Nhap y: '); read(y);
writeln('Nhap z: '); read(z);
writeln('Nhap n: '); read(n);
if x mod 2 = 0 then write (x,' la so chan') else writeln(x,'la so le');
if y mod 2 = 0 then write (y,' la so chan') else writeln(y,'la so le');
if z mod 2 = 0 then write (z,' la so chan') else writeln(z,'la so le');
if n mod 2 = 0 then write (n,' la so chan') else writeln(n,'la so le');
if n mod 3 <> 1 then writeln('Tong khong co quy luat') else
begin
S:=0;
for i:= 0 to (n-1)/3 do
S:= S+(3i+1);
writeln('S = ',S);
A:=0;
p:=1;
for i:=1 to n do
begin
p:= p*(x/(x+y));
A:=A+p;
end;
writeln('A = ',A);
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)
!!!
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
Qúa dài nên lười gõ -.-
viết pascal hay là giải toán thế :v