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