Bài 1: Viết chương trình tính `1/(1.3)+1/(2.4)+…+1/(n(n+2))` Bài 2: Viết chương trình nhập vào một dãy số và một số nguyên x đếm xem có bào nhiêu ch

Bài 1: Viết chương trình tính `1/(1.3)+1/(2.4)+…+1/(n(n+2))`
Bài 2: Viết chương trình nhập vào một dãy số và một số nguyên x đếm xem có bào nhiêu chữ số trong dãy lớn hơn x và in các số đó ra màn hình.

0 bình luận về “Bài 1: Viết chương trình tính `1/(1.3)+1/(2.4)+…+1/(n(n+2))` Bài 2: Viết chương trình nhập vào một dãy số và một số nguyên x đếm xem có bào nhiêu ch”

  1. Bài 1:

    program tinh_tong;

    uses crt;

    var n,i:integer;

         t:real;

    begin

          clrscr;

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

          t:=0;

          for i:=1 to n do

                t:=t+1/(n*(n+2));

          write(‘Tong la: ‘,t:0:2);

          readln;

    end.

    Bài 2:

    program dem_lonhon;

    uses crt;

    var A:array[1..1000] of integer;

          n,i,d,x:integer;

    begin

          clrscr;    

          write(‘Nhap so luong phan tu cua day: ‘);  readln(n);

          for i:=1 to n do

               begin

                    write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

               end; 

          write(‘Nhap so x: ‘);  readln(x);

         d:=0;

         for i:=1 to n do

               if A[i]>x then

                    begin

                         write(A[i],’ ‘);

                         d:=d+1;

                    end;

         if d=0 then write(‘Khong co so nguyen nao lon hon ‘,x)

          else

               begin

                     writeln;

                     write(‘Co ‘,d,’ so lon hon x’);

               end;

         readln;

    end.

    Bình luận

Viết một bình luận