ko phải do bạn lập trình hơi chệch choạng đâu mà do nó khó đó

à có vẻ hơi khó thiệt để ngĩ đã

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

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

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

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 );

cho cái cốt thôi

s:=0;

for i:= 1 to n do

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

hiêu2 quá

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

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

Giúp mình vs

a) tính tổng các số chẵn từ 1 đến 50
b)
  (3): lệnh viết kq của ct trên.
  (4):lệnh in ra màn hình kq của bài toán.
  (5):lệnh kết thúc ct.

Đề bài yêu cầu gì vậy bạn?

Đề yêu cầu sắp xếp lại .a) if mod a=0 then.b) while i<50 do

Những chỗ sai được in đậm em nhé

program Hà 0908

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');

readln;

end.

Sửa lại như sau:

program Ha_0908;

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);

readln;

end.

sai nhu nay 

Hà 0908 ko ';'

writeln... =;4;2'); => ko co dau ' nay nha 

uses crt;

var i,n:integer; S:real;

Begin

clrscr;

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

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

writeln('Tong la: ',S:3:1);

readln

End.

???????luôn