uses crt;

var s:real;

n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do

begin

s:=s+1/i;

i:=i+2;

end;

writeln('S=',s:4:2);

readln;

end.

Gửi bạn

Câu 1 :

program A01;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

write('Nhap so n = '); readln(n);

S := 0; i := 1;

while i <= n do

     begin

          S := S + 1 / i;

          i := i + 1;

      end;

write('S = ', S : 2 : 2);

readln

end.

Câu 2 :

program A01;

uses crt;

var n, i, S : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

i := 2; S := 0;

while i < n do

     begin

          if n mod i = 0 then S := S + i;

          i := i + 1;

     end;

write('Tong cac uoc thuc su : ', S);

readln

end.