Lập trình có sử dụng chương trình con giải bài toán: 1, Tính S=1.2.3…n 2, Nhập vào 1 dãy n số nguyên a1,a2,…,an(n<=100). Tính tổng các số dương ch

0 bình luận về “Lập trình có sử dụng chương trình con giải bài toán: 1, Tính S=1.2.3…n 2, Nhập vào 1 dãy n số nguyên a1,a2,…,an(n<=100). Tính tổng các số dương ch”

1. Bài 1:

   #include <bits/stdc++.h>

   using namespaces std;

   int main()

   {

          int n,s=1;

          cin>>n;

          for(int i=1;i<=n;i++) s*=i;

          cout<<s;

          return 0; 

   }

   Bài 2:

   #include <bits/stdc++.h>

   using namespaces std;

   int main()

   {

          int n,a,s=0;       

          cin>>n;

          for(int i=1;i<=n;i++)

          {

                 fi>>a;

                 if(a>0 and a%2==0) s+=a;

           }

          cout<<s;

          return 0; 

   }

   Bình luận

2. câu 1:

   var n: byte;

   Function s(a: byte): longword;

       Var i: byte;

       Begin

          S:=1;

          For i:=1 to a do s:=s*i;

       End;

   Begin

        Write(‘nhap n = ‘); readln(n);

        Write(‘S = ‘, s(n));

        Readln

   End.

   câu 2:

   var a: array[1..100] of integer;

          i, n: byte;

          Tong: longword;

   Procedure tinhTong;

       Begin

            Tong:=0;

            For i:=1 to n do

              If (a[i]>0) and (a[i] mod 2 = 0) 

                  Then tong:=tong+a[i];

       End;

   Begin

       Write(‘n = ‘); readln(n);

       For i:=1 to n do 

          Begin

              Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

          End;

      TinhTong;

      Write(‘tong: ‘, tong);

      Readln

   End.

   Bình luận