`#Sano`

Tính tổng các số chẵn:

program demo;

uses crt;

var i,N: integer;

      s: longint;

begin clrscr;

writeln('nhap N'); readln(N);

for i:=1 to N do if i mod 2 = 0 then s:=s+i;

writeln('tong la', s);

readln;

end.

Tính tổng các số lẻ:

program demo;

uses crt;

var i,N: integer;

      s: longint;

begin clrscr;

writeln('nhap N'); readln(N);

for i:=1 to N do if i mod 2 = 1 then s:=s+i;

writeln('tong la', s);

readln;

end.

`Pascal`

uses crt ;
  var sc, sl, n, i : longint ;
 begin
   clrscr ;
    write('n=') ;
     readln(n) ;
    for i :=1 to n do
        begin
        if i mod 2=0
            then Sc := sc+ i 
        else 
            sl := sl + i ;
        end ;
    writeln('tong chan=',sc) ;
    writeln('tong le =',sl) ;
        readln
           end .