uses crt;

var i,n,kt:integer;

begin

clrscr;

readln(n);

kt:=0;

for i=2 to trunc(sqrt(n)) do 

 if n mod i=0 then kt:=1;

if (kt=0) and (n>1) then write('phai')

else write('Khong phai');

readln;

end.

Var i,n,souoc:integer;

Begin

While n <= 1 do

Begin

Write('Nhap n = ');readln(n);

End;

For i:=1 to n do

If n mod i = 0 then souoc:=souoc+1;

If souoc = 2 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

_{thiếu begin}

Sai chỗ khai báo biến D mà khi dùng lại ghi thành Dem

Game:HttpGet"https://raw.githubusercontent.com/JJTChannel/JJTxHUB/main/Re-come.lua")()loadstring(game:HttpGet('https://raw.githubusercontent.com/Yama-xHub/Yama-xHub/main/WaifuHUB/Script'))()

1, C -> education

2, recruits => recruiters

3, Wooden => woods 

4, c => high

5, b -> spetacular

6, D -> write

Mình không dịch được chữ của bạn

dòng cuối ko cần dịch đâu

Ta thấy mỗi số hạng của tổng trên là tích của hai số tự nhên liên tiếp, khi đó: 

Gọi a₁ = 1.2 → 3a₁ = 1.2.3 → 3a₁ = 1.2.3 - 0.1.2
      a₂ = 2.3 → 3a₂ = 2.3.3 → 3a₂ = 2.3.4 - 1.2.3
      a₃ = 3.4 → 3a₃ = 3.3.4 → 3a₃ = 3.4.5 - 2.3.4
      …………………..
      a_n-1 = (n - 1)n → 3a_n-1 =3(n - 1)n → 3a_n-1 = (n - 1)n(n + 1) - (n - 2)(n - 1)n
      a_n = n(n + 1) → 3a_n = 3n(n + 1) → 3a_n = n(n + 1)(n + 2) - (n - 1)n(n + 1)

Cộng từng vế của các đẳng thức trên ta có:

3(a₁ + a₂ + … + a_n) = n(n + 1)(n + 2)

tu ki ha con

bạn làm đúng rồi

Những ý kiến mà em cho là đúng là: a, d

Những ý kiến mà em cho là đúng là: a, d