Viết chương trình tính tổng n phân số tự nhiên đầu tiên sd câu lệnh for…do

0 bình luận về “Viết chương trình tính tổng n phân số tự nhiên đầu tiên sd câu lệnh for…do”

1. var s,i,n:integer;

   Begin

             write(‘Nhap N= ‘);readln(n);

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

             writeln(s);

             readln

   End.

   Bình luận

2. program Min;
   uses crt;
   var i,n:integer; S:real;
   begin
      clrscr;
      S:=1;
      write(‘Nhap n: ‘); readln(n);
      for i:=2 to n do
      S:=S+1/i;
      writeln(‘Tong la: ‘,S:4:2);
      readln
   end.

   Đây nha 😀

   Bình luận