1.program bai1;

var n,i,s:longint;

begin

repeat

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

until n>0;

s:=0;

for i:=1to n do

begin

write('a[',]= ');readln(a[i]);

s:=a[i];

end;

write('S= ',s);

readln

end.

b,((a mod2=0) and (a>=10) and (a<100));

program bai1;

var s,i,n:longint;

begin

write('N= '):readln(n);

i:=0;

s:=1;

while i<=n do

begin

if i mod 2=0 then s:=s*1/i;

i:=i+1;

end;

write('S= ',s);

readln

end.

Phương trình b bạn chỉ cần chuyển vế sang rồi giải tương tự phương trình a kết quả là x=-4024

program bai1;

var mP,mO:longint;

lc:char;mol:real

begin

write('Ban muon tinh so mol cua P hay O ');

readln(lc);

if lc='P' then

begin

write('So mol cua P la ');readln(mP);

mol:=mP/M(PTK của P tự tính nha);

write('So mol la ',mol:4:2);

end;

mol của O tương tự

readln

end.

1*2*3*4*5*6*7

=2*3*4*5*6*7

=6*4*5*6*7

=24*5*6*7

=120*6*7

=720*7

=5040

program bai1;

var n,du:longint;

begin

repeat

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

until ((n>=1000) and (n<=3000));

write('Cac chu so cua ',n,' la ');

while n<>0 do

begin

du:=n mod 10;

write(du,' ');

n:=n div 10;

end;

readln

end.

số kg muối có trong 20 kg nước biển là :

        20 x 5 : 100 = 1 ( kg )

số kg nước lả cần đổ thêm vào nước biển là :

      ( 1:2 x 100 ) - 20 = 30 (kg)

                 đáp số : 30 kg

may 10 bo quan ao het so vai la :

2,35 * 10 = 23,5 ( m )

tam vai lay ra dai la :

2,35 + 6,5 = 8,85 ( m )

ĐS : 8,85 m vai

tick nha 

mk nghi vay do