4)

uses crt;
 var n,i : integer ;
 s : real ;
  begin
   clrscr;
write('N=');
 readln(n);
for i := 1 to n do
  if i mod 2 = 0
    then s := s + 1/i ;
 writeln('Tong la: ',s:3:2); 
  end.

5)

Bài cơ bản  :

uses crt;
 var n,i,d : integer ;
  begin
   clrscr;
    write('N=');
     readln(n);
 for i := 2 to n - 1 do
  if n mod i =0
   then d := d + 1 ;
  if d=0 then writeln('So nguyen to')
   else writeln('Khong la so nguyen to');
    end.

Bài nâng cao :

uses crt;
 var n,i : integer ;
  ngto : boolean ;
   begin
    clrscr;
     write('N=');
     readln(n);
 ngto := true ;
 for i := 2 to trunc(sqrt(n)) do
    if n mod i = 0 
         then
        begin
        ngto := false ;
        break ;
        end;
 if ngto = true then writeln('So nguyen to')
  else writeln('Khong la so nguyen to');
   end.

Bài 4 :

- Xác định bài toán :

+ Input : Số nguyên N

+ Output : Tổng S

- Viết chương trình :

uses crt;

var i, N : integer; S : real;

begin

clrscr;

write('N = '); readln(N);

S := 0; i := 1;

while i <= N do

    begin

        if i mod 2 = 0 then

            S := S + 1 / i;

        i := i + 1;

    end;

write('Tong la : ', S : 2 : 2);

readln;

end.

Bài 5 :

- Xác định bài toán :

+ Input : Số N

+ Output : 'N là số nguyên tố' hoặc 'N không là số nguyên tố'

- Viết chương trình :

uses crt;

var i, N, S : integer;

begin

clrscr;

write('N = '); readln(N);

S := 0;

for i := 2 to N - 1 do

    if N mod i = 0 then S := 1;

if (N > 1) and (S = 0) then

write(N,' la so nguyen to')

else write(N,' khong la so nguyen to');

readln;

end.