Question

câu 6: dùng vòng lặp for...do hoặc while...do viết chương trình tính và in ra tổng sau: s=1+1/2+1/3+....+1/50

Answer 1

var s, i: real;
begin
    s := 0;
    for i := 1 to 50 do
        s := s + 1/i;
    writeln('Tong s = ', s:0:2);
end.

 

Answer 2

for i:= 1 to 50 do S = S + 1/i;

Answer 3

while..do

Program HOC24;

var i: integer;

s: real;

begin

i:=1;

while i<=50 do

begin

s:=s+i;

i:=i+1;

end;

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

readln

end.