Câu 1: Viết ct nhập vào số nguyên n. In và tính tổng các phần tử lẻ Câu 2: Viết ct nhập vào số nguyên n. In và đếm các số từ 1 -> n Câu 3: nhập vào mả

0 bình luận về “Câu 1: Viết ct nhập vào số nguyên n. In và tính tổng các phần tử lẻ Câu 2: Viết ct nhập vào số nguyên n. In và đếm các số từ 1 -> n Câu 3: nhập vào mả”

1. Câu 1:

   #include<bits/stdc++.h>
   using namespace std;
   int main()
   {
       int n,tong=0;
       cin>>n;
       for(int i=1;i<n;i++){
           if(i%2==1){
               cout<<i<<” “;
               tong+=i;
           }
       }
       cout<<“\nTong cac phan tu le la: “<<tong;
       //samon247
       return 0;
   }

   Câu 2:

   #include<bits/stdc++.h>
   using namespace std;
   int main()
   {
       int n,a=0;
       cin>>n;
       for(int i=1;i<=n;i++){
           cout<<i<<” “;
           a+=1;
       }
       cout<<“\nTu 1 den n co “<<a<<” so.”;
       //samon247
       return 0;
   }

   Câu 3:

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

   Câu 4:

   #include<bits/stdc++.h>
   using namespace std;
   int main()
   {
       int n,a=0,tong=0;
       cin>>n;
       for(int i=1;i<=n;i++){
           if(i%4==0){
               a+=1;
               tong+=i;
           }
       }
       cout<<“Tong “<<a<<” so chia het cho 4 tu 1 den “<<n<<” la: “<<tong;
       //samon247
       return 0;
   }

   Bình luận

2. 1)

   program ct;

   uses crt;

   var i,n:integer;

         S:longint;

   begin clrscr;

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

        S:=0;

      for i:=1 to n do

        if i mod 2=1 then S:=S+i;

      write(‘Tong ca phan tu le la: ‘,S);

   readln;

   end.

   2)

   program ct;

   uses crt;

   var i,n,d:integer;

         S:longint;

   begin clrscr;

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

      write(‘Cac so tu 1 -> ‘,n,’ la: ‘);

      for i:=1 to n do

        begin

           write(i:3);

           inc(d);

        end;

      writeln(‘Co ‘,d,’ so tu 1 -> ‘,n,’);

   readln;

   end.

   3)

   program ct;

   uses crt;

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

         i,n:integer;

   begin clrscr;

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

      for i:=1 to n do

        begin

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

        end;

      write(‘Cac phan tu duong la: ‘);

      for i:=1 to n do

        if A[i]>0 then write(A[i]:3);

   readln;

   end.

   4)

   program ct;

   uses crt;

   var i,n,d:integer;

         S:longint;

   begin clrscr;

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

        S:=0;

      for i:=1 to n do

        begin

           inc(d);

           S:=S+4*i;

        end;

      write(‘Co ‘,d,’ so la boi cua 4′);

      writeln(‘Tong chung la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận