Question

[Trần Huyền]

​Viết chương trình Pascal sử dụng câu lệnh while ... do và for ... do

S : 1+ 1/2+ 1/3+....+1/n

Viết chương trình sử dụng câu lệnh while ... do để tính trung bình n số thực a₁ , a₂ , ..... a_n. Các số n và a₁ , a₂ , ..... a_n được nhập vào từ bàn phím

Giúp mình với cảm ơn mng ạ !

Answer 1

[bui thi tham]

var i,n,s:integer;

begin

readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln(s:3:0);

end.

Answer 2

[Lưu Hiền]

mình làm while do nhé, cái kia để mình tìm hiểu thêm

var S:real;

i,n:longint;

begin

writeln('n=') ; readln(n);

S:=0;

i:=1;

while (i<=n) do

begins=

S:= 9S+1/i;

i:=i+1;

end;

writeln ('S=');

end.