Câu 2:

uses crt;
var i,n,S:integer;
begin
   write('Nhap n: '); readln(n);
   for i:=1 to n do 
   if i mod 2 = 0 then S:=S+i;
   write('Tong la: ',S);
   readln
end.

Câu 2:

uses crt;
var i,n,dem:integer;
    S:real;
begin
   write('Nhap n: '); readln(n);
   S:=0;
   for i:=1 to n do 
   if i mod 5 = 0 then 
   begin
      S:=S+i;
      inc(dem);
   end;
   write('Tong la: ',S/dem:4:2);
   readln
end.

Câu 4:

uses crt;
var i,n:integer;
begin
   write('Nhap n: '); readln(n);
   write('Cac uoc cua ',n,' la: ');
   for i:=1 to n do 
   if n mod i = 0 then write(i:4);
   readln
end.

Câu 5:

uses crt;
var i,j,k:byte;
begin
   write('Ket qua: ');
   for i:=1 to 9 do
      for j:=0 to 9 do
         for k:=0 to 9 do
            if i+j+k=9 then 
            begin
               write(i,j,k);
               write(' ');
            end;
   readln
end.