1,viết chương trình tính tổng các số lẻ không vượt quá n 2,viết chương trình tính tổng S=1+1/2+1/3+…+1/n

0 bình luận về “1,viết chương trình tính tổng các số lẻ không vượt quá n 2,viết chương trình tính tổng S=1+1/2+1/3+…+1/n”

1. 1/

   uses crt;

   var i,n,s: integer;

   begin

   clrscr;

   write (‘nhap n: ‘);  readln (n);

   for i:=1 to n do

   if i mod 2<>0 then s:=s+i;

   writeln (‘tong cac so le ko vuot qua n: ‘,s);

   2/

   uses crt;

   var i,n: integer;

           s: real;

   begin

   clrscr;

   write (‘nhap n: ‘);  readln (n);

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

   writeln (‘tong la: ‘,s:1:2);

   readln;

   end.

   Bình luận

2. bài 1: 

   program tinhtong;

   uses crt;

   var n,i,s:integer;

   begin

   clrscr;

   write(‘Nhap n: ‘);  readln(n);

   s:=0;

   for i:=1 to n do

    if i mod 2=0 then s:=s+i;

   write(‘Tong cac so le khong vuot qua ‘,n,’ la: ‘,s);

   readln

   end.

   Bài 2:

   program tinhtong;

   uses crt;

   var s:real;

         n,i:integer;

   begin

   clrscr;

   write(‘Nhap n: ‘);   readln(n);

   s:=0;

   for i:=1 to n do

    s:=s+1/i;

   write(‘S= ‘,s:2:2);

   readln

   end.

   Bình luận