Question

Viết biến mảng 1+1/2+1/3+...1/100 với câu lênh for to do , while do

Answer 1

uses crt;

var t:real;

i:integer;

begin

t:=0;

i:=1;

while i<=100 do

begin

t:=t+ 1/i;

i:=i+1;

end;

write(t);

end.

Answer 2

Chào bạn . Đề này sao lại sử dụng biến mảng ạ . Có phải nhập từng giá trị đâu . Với đề 1+1/2+1/3+...+1/100 với while do và for to do mình sẽ hướng dẫn bạn cách làm nhé .

Lời giải :

+ for to do

program hotrotinhoc ;

var a,i : integer ;

T : real ;

begin

for i:= 1 to 100 do

S:=S+1/i ;

write('Ket qua cua tong la',S);

readln

end.

+ while do

program hotrotinhoc ;

var i : integer ;

T : real ;

begin

T:=0 ; i:=0;

while i<100 do

begin

i:=i+1;

T:=T+i;

end;

write('Ket qua cua tong la:',T);

readln

end.