Var i,n:integer;

Begin

Write(' nhap n = ');

Readln(n);

For i:= 1 to n do If n mod i = 0 then Write ('uoc cua ',n,' la :',i:3);

Readln;

end.

tìm x thuộc sô nguyên biết:

x.(x+3)-x.(x+5)=7.(x-2)

GIÚP MÌNH VỚI

Cau 5:

Var i,n,S:integer;

Begin

Write(' nhap n = ');

Readln(n);

S:= 0;

For i:= 1 to n do S:= S+i;

Writeln(' tong cua ',n,' so tu nhien la :',S);

Readln;

end.

Caau 4:

Var a,b,c :real;

Begin

Write ('nhap canh 1: '); Readln(a);

Write (' nhap canh thu 2 :');Readln(b);

Write (' nhap canh thu 3 :'); Readln(c);

If ((a+b) >c ) and ((a+c)>b) and ((b+c)>a) then

If (a=b) or (b=c) or ( a=c) then Writeln (' ba canh vua nhap la tam giac can')

else Writeln(' ba canh vua nhap khong phai tam giac can')

else (' ba canh vua nhap khong phai la tam giac ');

Readln;

end.

Con 19 tuổi; bố 49 tuổi.

Var a,b,S,C : real;

Begin

Write (' chieu dai : '); Readln(a);

Write (' chieu rong : ');Readln(b);

S:=1;C:=1;

S:=a*b;

C:=(a+b)*2;

Writeln(' Dien tich hcn : ',S);

Writeln(' chu vi hcn :',C);

Readln;

end.

C2H4 + 3O2------>2CO2 + 2H2O

C6H6 + Br2----->C6H5Br + HBr

CH4 = CH2 + Br2-----> CH4- CHBr + HBr

CaCO3 ---t*--> CaO + CO2

CO2 +2NaOH-----> Na2CO3 + H2O

Na2CO3 + 2HCl -----> 2NaCl + H2O + CO2

2CO2---t*---> 2CO + O2

y=6

x=1

tick nha moi nguoi

CH4 + 2O2-------->CO2 + 2H2O

x .................... x

C2H4 + 3O2--------> 2CO2 + 2H2O

y .............................2y

b.Ta có :

n hỗn hợp(ở đktc)=0,448/22,4=0,02 mol

n CO2=1,32/44=0,03 mol

=>Ta có pt:

x+y=0,02

x+2y=0,03

=>x=0,01 mol

y=0,01 mol

Ở cùng đktc,t* và áp suất:tỉ lệ V=tỉ lệ n:

=>%V CH4=nCH4=0,01/0,02*100%=50%

=>%VC2H4=100%-50%=50%

Mình nghĩ là khí B gồm :CH4 và C2H4 chứ khong phải là C4H2 vì như thế thì khi tìm ra được số mol thì % sai