Bài 1 

c) Mình sẽ cho vòng lặp chạy i từ 1 đến 2010. $S_1$= $S_1$+i

Code

Program vidus1;
Var s1,i:longint;
BEGIN
clrscr;
s1:=0;
For i:=1 to 2010 do s1:= s1 + i;
Write(s1);
readln;
END.

d) Mình  sẽ cho vòng lặp chạy i từ 1 đến 2009. Có thể thấy tổng quát của $S_2$ là $S_2$= $S_2$+(i*(i+1))

Code

Program vidus2;
Var s2,i:longint;
BEGIN
clrscr;
s2:=0;
For i:=1 to 2009 do s2:= s2 + (i*i+1);
Write(s2);
readln;
END.

Bài 2  Mình  sẽ cho vòng lặp chạy i từ 1 đến n. Dùng hàm odd() để tìm số lẻ. Cộng số lần tìm số lẻ. Và xuất ra các số lẻ.

Code

Program timsole;
Var a:array[1..100000] of longint; 
n,i,d:longint;
BEGIN
Write('Nhap N: '); Readln(n);
For i := 1 to n do Readln(a[i]);
d:=0;
Writeln('Cac so le cua day so tren la:');
For i := 1 to n do if odd(a[i]) then 
    begin
    inc(d);
    Write(a[i]:2);
    end;
Writeln;
Write('So phan tu le cua day n la: ',d);
Readln;
END.

Bài 3  Mình  sẽ cho vòng lặp chạy cho đến khi n = 1 thì dừng(Ko còn phân tích được nữa). Nếu n không còn chia hết cho i thì tăng i lên và kiểm tra xem có phải là snt không. Nếu phải thì tiếp tục thực hiện.

Code

Program ptsnt;
Uses crt;
Var n,i,sn:longint;

Function snt(a:longint):boolean;
var i:longint;
begin
    snt:=true;
    If a > 2 then begin
    For i:=2 to a-1 do if a mod i = 0 then begin snt:=false; break; end;
    end;
end;

BEGIN
clrscr;
Write('Nhap N: '); Readln(n);
Write(n,' = ');
i:=2;
While n <> 1 do
begin
    While (n mod i <> 0) or (not(snt(i))) do inc(i);
    Write(i);
    n:=n div i;
    if n > 1 then Write('*');
end;
Readln;
END.