Có cần bạn bình luận ko vậy

Chị ơi em mới học lớp 7 nha chị       

e moi lop 7 a

a) Giả sử đa thức f(x) sau khi lũy thừa bậc 2012 viết ra dưới dạng tổng quát:

\(f\left(x\right)=a_nx^n+a_{n-1}x^{n-1}+a_{n-2}x^{n-2}+...+a_2x^2+a_1x+a_0\)

Thì: \(f\left(1\right)=a_n+a_{n-1}+a_{n-2}+...+a_2+a_1+a_0=\left(1^2+3\cdot1-1\right)^{2012}=3^{2012}\)(1)

Hay TỔNG của tổng hệ số các hạng tử chứa lũy thừa bậc chẵn và tổng hệ số các hạng tử chứa lũy thừa bậc lẻ là 3²⁰¹²

Và: \(f\left(-1\right)=a_0-a_1+a_2-a_3+...=\left(\left(-1\right)^2+3\left(-1\right)-1\right)^{2012}=\left(-3\right)^{2012}=3^{2012}\)(2)

Hay HIỆU của tổng hệ số các hạng tử chứa lũy thừa bậc chẵn và tổng hệ số các hạng tử chứa lũy thừa bậc lẻ là 3²⁰¹²

Vậy, tổng các hệ số của hạng tử chứa lũy thừa bậc chẵn của x là: 1/2(TỔNG + HIỆU) = 3²⁰¹².

Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
        Clrscr;
Writeln(' Phan A ');
                Write(' Ban hay nhap 1 so n bat ky: ');
                Readln(n);
                Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
                        For i:=1 to n do
                                If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
                Write(' Ban hay nhap 1 so m bat ky: ');
                Readln(m);
                        For i:=1 to m do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        S:= S+A[i];
                                End;
                Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
                Write(' Ban hay nhap 1 so d bat ky: ');
                Readln(d);
                Write(' Ban hay nhap so K: ');
                Readln(k);
                        For i:=1 to n do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        If ((A[i] div k)=1)then t:=t+1;
                                End;
                Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.

Chọn B

uses crt;

var i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

  if i mod 2=1 then write(i:4);

for i:=1 to n do 

  if i mod 2=0 then write(i:4);

readln;

end.