viết chương trình tính tổng : a= 1+1/2+1/3+....+1/n ở đây n được nhập từ bàn phím. có sử dụng câu lệnh while ... do
2 câu trả lời
uses crt;
Var I,n : integer;
S : real;
Begin clrscr;
a :=1, i:=1;
Write(‘Nhap n=’); readln(n);
While I <=n do
Begin
S:=a+1/i;
I:=i+1;
End;
Writeln(‘Tong do la:’, a);
Readln
End.
Program baitap;
Uses crt;
Var A:real;
n,i:integer;
Begin
Clrscr;
A:=0;i:=0;
Write('n='); Readln(n);
While i<n do
Begin
i:=i+1;
A:=A+1/i;
End;
Writeln('Ket qua:',A:5:1);
Readln
End.
Câu hỏi trong lớp
Xem thêm