1. Viết chương trình tính tổng n số hạng với n là số tự nhiên được nhập từ bàn phím.

program tinhtong;

uses crt;

 var i,n: integer;

       s: longint;

begin clrscr;

writeln('Nhap n'); readln(n);

for i:=1 to n do s:=s+i;

write('tong la', s);

readln

end.

2. Viết chương trình kiểm tra số n có phải là số chẵn hay không (với n là số tự nhiên được nhập từ bàn phím)

program kiemtra;

uses crt;

var n: integer;

begin clrscr;

writeln('nhap n'); readln(n);

if n mod 2 = 0 then write(n,' ');

readln;

end.

3. Viết chương trình tính tổng các số lẻ nhỏ hơn n (với n là số tự nhiên nhập từ bàn phím)

program tinhtong;

uses crt;

var n,i: integer;

      s: longint;

begin clrscr;

write('nhap n'); readln(n);

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

write('tong la', s);

readln

end.

Bài 1:

var n,i,s: integer;

begin

read(n);

s:=0;

for i:=1 to n do

s:=s+i;

write('Tong la:',s);

end.

Bài 2:

var n,i: integer;

begin

read(n);

for i:=1 to n do

if i mod 2=0 then write('La so chan')

else write('La so le');

end.

Bài 3:

var s,i,n: integer;

Begin

readln(n);

s:= 0;

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

write(‘Tong cac so le nho hon ‘,n,’ la: ‘,S);

end.