À, ở phần 3 có câu này mình viết sai, mình sửa lại ntnay nhé:

You're welcome :33

1) 2H2O −điện phân→ 2H2 + O2
2) 2H2 + O2 −to→ 2H2O
3) Nước tác dụng với kim loại:
+ 2H2O + 2Na -> H2➚ + 2NaOH
+ H2O + K + CuSO4 -> Cu(OH)2 + H2➚ + K2SO4
+ 2H2O + Ba -> H2➚ + Ba(OH)2
+ 2H2O + Ca -> H2➚ + Ca(OH)2
4) Nước tác dụng với oxit bazơ:
+ H2O + Na2O -> 2NaOH
+ H2O + K2O -> 2KOH
+ H2O + BaO -> Ba(OH)2
+ H2O + CaO -> Ca(OH)2
5) Nước tác dụng với oxit axit
+ H2O + SO3 -> H2SO4
+ 3H2O + P2O5 -> 2H3PO4
+ H2O + CO2 -> H2CO3
+ H2O + N2O5 -> 2HNO3
*Ở c2 phần 3 bạn bị thiếu chất tham gia, mình in đậm vào rồi đó. Thấy đúng thì tick cho mình nhé! Good luck for you :D

Đáp án là ý C nhé

Theo mình thì đây là số vô tỉ. Vì số này không thể biểu diễn dưới dạng tỉ số a/b ( với a và b là các số nguyên)

a, Với lệnh For..do:
Var i:integer;
          S:real; (Hoặc S:longint);
       Begin
    S:=0;
       For i:=1 to 1980 do S:=S+i;
      Writeln('Vay tong cua S=',S);
     Readln
    End.
*In đậm: Bạn có thể chọn 1/2 cách với S:real hay S: longint. Chỉ là nếu bạn muốn nhìn dễ hiểu hơn thì tùy bạn. H/ảnh minh họa như dưới đây :D (Đã thử và áp dụng cách này với For...do)

b, Với lệnh While...do
Var i:integer;
      S:real;
Begin
  S:=0; i:=0;
While i<=1980 do
  Begin
     S:= S+i;
       i:= i+1;
End;
Writeln('Vay tong cua S=',S);
Readln
End.
*In đậm: Cũng có thể dùng S:longint (70-80% đúng) thay vì S:real (100% đúng). Nhưng khuyến cáo nên sử dụng S:real (Đã thử và áp dụng tương đối chính xác với While...do)
Good luck for you!!! :D

Var dtb:real;
Begin
 Repeat
  Writeln('Nhap diem trung binh cua ban vao day:'); Readln(dtb);
 Until (0<=dtb) and (dtb<=10);
If dtb>=5 then writeln ('Chuc mung,ban da dau!') else if dtb<5 then writeln('Xin chuc mung, ban da tach!');
Readln
 End.
*Dòng lệnh in đậm có nghĩa là khi bạn nhập dtb mà không nằm trong phạm vi từ 0->10, nó sẽ bắt bạn phải nhập lại cho đến khi đúng phạm vi. Vd như dưới đây: (Good luck for you :D :D )

*Khi A lớn nhất và A<1500
Var i,A:integer;

Begin

  i:=0; A:=0;

   While A<1500 do

             Begin

                i:=i+1;

                A:=A+i;

             End;

       A:=A-i;

       i:=i-1;

   Writeln('Tong A= ',A,' );

 Readln;

End.
*Dòng lệnh in đậm mình ghi thêm và khác với bài kia có nghĩa là khi A>1500 thì phải trừ tổng A đi số (hoặc nhiều số) cuối cùng đã cộng cho tổng cho đến khi tổng A<1500. Vd như: A=1+2+3+4+5= 15 (tức A>10; A phải lớn nhất).Muốn cho A=10 thì trừ đi số cuối cùng là 5 = 15-5=10. Còn nếu muốn A<10 thì trừ hai số cuối cùng đi hai số cuối cùng là : 15-5-4=6

Good luck for you! :D