1.Program tinhtong;

var: i,s:=longint;

Begin

i:=-1;

While i<n do

Begin

i:=i+2;

S:=S+i;

End;

readln;

End.

2.program bai_tap;
type mang = array[1..1000] of integer;
var a:mang;
i,j,n:integer;
begin
writeln('nhap n:');
readln(n);
i:=1;j:=0;
while i <= n do
begin
write('nhap so thu ',i,': ');
readln(a[i]);
if a[i] mod 2 = 0 then j:=j+a[i];
inc(i);
end;
write(j);
readln
end.

3.

Câu 1:

uses crt;
var n,i,s:longint;
begin
      clrscr;
      write('Nhap n: '); readln(n);
      while i<=n do
                begin
                        inc(s,i);
                        inc(i);
                end;
      writeln('Tong: ',s); 
      readln;
end.

Câu 2:

uses crt;
var n,i,s:longint;
begin
        clrscr;
        i:=1;
        repeat
                write('Nhap so thu ',i,': '); readln(n);
                inc(s,n);
        until n=0;
        writeln('Tong: ',s);
        readln;
end.

Câu 3:

uses crt;
var n,i,s:longint;
begin
        clrscr;
        write('Nhap n: '); readln(n);
        while n<>0 do
                begin
                        s:=s+(n mod 10);
                        n:=n div 10;
                end;
        writeln('Tong cac chu so cua n la: ',s); 
        readln;
end.