Cho S=1/1+1/2+1/3+...+1/101 Viết chương trìng Pascal sử dụng câu lệnh lặp để tính tổng S

2 câu trả lời

uses crt;
var S:real;
    i:byte;
begin
   clrscr;
   S:=0;
   for i:=1 to 101 do s:=s+1/i;
   write('s = ',s:4:2);
   readln
end.

Uses crt;

Var i: integer;

s : real;

Begin clrscr;

s:=0;

For i:=1 to 101 do

s := s+1/i;

Write('Tong S=',s);

readln

end.