K
Khách

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.

3 tháng 1 2018

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

29 tháng 12 2017

a) ((1/(b+2))*(a*a+c)=5*k*x)>=(m+5)/2*a

b)(k*k)+((k+1)*(k+1)) <>((k+2)*(k+2)) .(dấu | ) mình không hiểu lắm )

c)8*x-7>1

d) (b*b)-(4*a*c)>=0

e) (1/n)*(1/(n+1))*(1/(n+2)<0,01

f) (a-3)*(a+5)=0

g)((a+c)*h)/2<>1

h)2*x+3<=25*y

16 tháng 2 2019

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)

19 tháng 9 2017

a) [(15+20) * (15+20) - 100]/2

b) 15 + 20 - [(50+7)*(50+7)]/5

c) 15 + 20 + [(45-20)(15+20)]/3

19 tháng 9 2017

a) Writeln(` [(15+20)*(15+20) - 100]/ 2' , [(15+20)*(15+20) - 100]/2 ) ;

b) Writeln ('15+20 - (50+7)*(50+7)/5= ' , 15+20 - (50+7)*(50+7)/6 ) ;

c) Writeln ( ' 15 + 20 + (45-20)* (15+20)/3 = ' , 15+20 +(45-20)*(15+20)/3 );

22 tháng 1 2019

var i,n:integer;

tich:real;

begin

write('nhap n='); readln(n);

tich:=1;

for i:=1 to n do tich:=tich*(1+1/(i*i));

write('ket qua la:',tich);

readln

end.

22 tháng 1 2019

thêm: write('ket qua la:',tich:2:1);

4 tháng 1 2018

a) a*a+1-2=b

b) (15*15)+((16+a)*(16+a))=c

c) 1/((15+1)*(15+1))-6=b

9 tháng 2 2018

Mô tả tính tổng:

-B1:A\(\leftarrow0\),i\(\leftarrow1.\)

-B2:A\(\leftarrow\dfrac{1}{i\times\left(i+2\right)}\)

-B3:\(i\leftarrow i+1\)

-B4:Nếu \(i\le n\),quay lại B2

-B5:Ghi kết quảA và kết thúc thuật toán.

9 tháng 2 2018

Giải thuật tính tổng trên là :


- Bước 1:Nhập số n



- Bước 2:S<-0; i<-0;



- Bước 3:i<-i+1;


- Bước 4:Nếu i <= n thì S:=S+1/(i*(i+2)) nghĩa là công vào S = S+1/(i*(i+2)) và quay lại

- Bước 5.Ngược lại thông báo kết quả và kết thúc thuật toán.

21 tháng 2 2018

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.

1. đổi các biểu thức toán sau sang ngôn ngữ Pascal a) \(\dfrac{1}{b+2}\left(a^2+c\right)=5\) b) \(k^2+\left(k+1\right)^2\ne\left(k+2\right)^2\) c) \(8x-7>1\) d) \(b^2-4ac\ge0\) 2. hãy viết thuật toán của bài toán "Tính tổng của 2 số". 3. hãy viết thuật toán của bài toán " Tính tổng của N số tự nhiên đầu tiên". Giả sử N đã được nhập vào từ bàn phím. 4. Viết chương trình tính diện tích S của hình tam giác...
Đọc tiếp

1. đổi các biểu thức toán sau sang ngôn ngữ Pascal

a) \(\dfrac{1}{b+2}\left(a^2+c\right)=5\)

b) \(k^2+\left(k+1\right)^2\ne\left(k+2\right)^2\)

c) \(8x-7>1\)

d) \(b^2-4ac\ge0\)

2. hãy viết thuật toán của bài toán "Tính tổng của 2 số".

3. hãy viết thuật toán của bài toán " Tính tổng của N số tự nhiên đầu tiên". Giả sử N đã được nhập vào từ bàn phím.

4. Viết chương trình tính diện tích S của hình tam giác với độ dài 1 cạnh a và chiều cao tương ứng h (a và h là các số tự nhiên được nhập vào từ bàn phím)

5. Viết chương trình tính chu vi, diện tích của hình tròn bán kính R. Với R được nhập vào từ bàn phím.

6. Viết chương trình nhập vào 1 số nguyên, kiểm tra và in ra màn hình thông báo số đó là số chẵn hay số lẻ.

7. Viết chương trình tìm số nhỏ nhất trong 3 số nguyên a, b, c.

8. Viết chương trình nhập vào 3 cạnh của tam giác, kiểm tra và đưa ra màn hình đó có phải là tam giác cân hay không?

1
22 tháng 12 2017

1.

a) (1/(b+a))*(a*a+c)=5

b) k*k+(k+1)*(k+1)<>(k+2)*(k+2)

c) 8*x-7>1

d) b*2-4*a*c>=0

2.

Bước 1. Nhập 2 số a và b bất kì.

Bước 2. SUM ß a+b.

Bước 3. Thông báo giá trị của SUM và kết thúc thuật toán.

3.

Bước 1. Nhập N

Bước 2. SUM ß 0; i ß 0.

Bước 3. SUM ß SUM + i.

Bước 4. i ß i + 1.

Bước 5. Nếu i N, thì quay lại bước 3

Bước 6. Thông báo giá trị của SUM và kết thúc thuật toán.

4.

program tinh_dien_tich_tam_giac;

uses crt;
var a,h : interger;
S : real;
begin
clrscr;
write(‘Nhap do dai canh day la: ’);

readln (a);

write(‘Nhap do dai chieu cao la: ’);

readln(h);
S:=(a*h)/2;
writeln(‘Dien tich hinh tam giac la: ’,S:4:1);
readln;
end.

Còn lại tự giải nha banh

4 tháng 1 2018

mik làm luôn thôi

23 tháng 12 2017

uses crt;

var b:array[1..100] of integer;

i,n,d:integer;

begin

clrscr;

repeat

writeln('nhap n=');readln(n);

until n>0;

for i:=1 to n do

begin writeln('b[',i,']','=');readln(b[i]);end;

writeln('so cac so le la');

for i:=1 to n do

if b[i] mod 2<>0 then d:=d+1;

writeln(d);readln;end.

23 tháng 12 2017

uses crt;

var n,i:longint; s:real;

begin

clrscr;

s:=0;

writeln('nhap vao n=');readln(n);

writeln('tong cua A la');

for i:=1 to n do

s:=s + 1/(i*(i+2));

writeln(s:4:3);readln;end.