Câu a: Viết chương trình Pascal cho phép in ra màn hình giá trị tích các số tự nhiên lẻ từ 1-N, N được nhập từ bàn phím. Câu b: Em hãy viết chương trì

0 bình luận về “Câu a: Viết chương trình Pascal cho phép in ra màn hình giá trị tích các số tự nhiên lẻ từ 1-N, N được nhập từ bàn phím. Câu b: Em hãy viết chương trì”

1. a.

   #include<bits/stdc++.h>
   using namespace std;
   int main()
   {
       int n;
       cin>>n;
       for(int i=1;i<=n;i++){
           if (i%2==1){
               cout<<i<<” “;
           }
       }
       //samon247
       return 0;
   }

   b.

   #include<bits/stdc++.h>
   using namespace std;
   int main()
   {
       int n,total=0;
       cin>>n;
       for(int i=1;i<=n;i++){
           if (i%2==0){
               total+=i;
           }
       }
       cout<<total;
       //samon247
       return 0;
   }

   f.

   #include<bits/stdc++.h>
   using namespace std;
   int main()
   {
       int n,total=1;
       cin>>n;
       for(int i=1;i<=n;i++){
           total*=i;
       }
       cout<<total;
       //samon247
       return 0;
   }

   j.

   #include<bits/stdc++.h>
   using namespace std;
   int main()
   {
       int n,total=1;
       cin>>n;
       for(int i=1;i<=n;i++){
           if(i%2==1){
               total*=i;
           }
       }
       cout<<total;
       //samon247
       return 0;
   }

   Bình luận

2. Câu a, j:

   program kiemtra;

   uses crt;

   var N,i:integer;

         T:longint;

   begin clrscr;

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

      T:=0;

      for i:=1 to N do

      If N mod 2<>0 then T:=T*1;

      write(‘Tich la: ‘,S);

   readln;

   end.

   Câu f:

   program kiemtra;

   uses crt;

   var N,i:integer;

         T:longint;

   begin clrscr;

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

      T:=0;

      for i:=1 to N do

      T:=T*1;

      write(‘Tich la: ‘,S);

   readln;

   end.

   Câu b:

   program kiemtra;

   uses crt;

   var N,i:integer;

         S:longint;

   begin clrscr;

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

      S:=0;

      for i:=1 to N do

      If N mod 2=0 then S:=S+1;

      write(‘Tong la: ‘,S);

   readln;

   end.

   M làm hết lun đó, học tốt!

   Cho m câu tlnt nha!

   Bình luận