Câu 1 ;Nhập vào 1 dãy số gồm tối đa 15 phần tử là nguyên . Thực hiện các chương trình sau ; Tính và đưa ra màn hình tổng chẵn và tổng lẻ Câu 2 : Nhậ

Câu 1 ;Nhập vào 1 dãy số gồm tối đa 15 phần tử là nguyên . Thực hiện các chương trình sau ; Tính và đưa ra màn hình tổng chẵn và tổng lẻ
Câu 2 : Nhập vào 1 xâu . tính và đưa ra màn hình số lượng kí tự “a” hoặc “A”
Câu 3 ; Nhập vào 1 xâu đưa ra từ lớn nhất

0 bình luận về “Câu 1 ;Nhập vào 1 dãy số gồm tối đa 15 phần tử là nguyên . Thực hiện các chương trình sau ; Tính và đưa ra màn hình tổng chẵn và tổng lẻ Câu 2 : Nhậ”

  1. Câu 1:

    #include<bits/stdc++.h>
    using namespace std;
    int main()
    {
        int n,chan=0,le=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]%2==0){
                chan+=arr[i];
            }
            else{
                le+=arr[i];
            }
        }
        cout<<“Tong cac so chan: “<<chan<<“\nTong cac so le: “<<le;
        //samon247
        return 0;
    }
    Câu 2:

    #include<bits/stdc++.h>
    using namespace std;
    int main()
    {
        string s;
        int a=0,A=0;
        getline(cin,s);
        for(int i=0;i<s.length();i++){
            if(s[i]==’a’){
                a+=1;
            }
            if(s[i]==’A’){
                A+=1;
            }
        }
        cout<<“So ki tu ‘a’ la: “<<a<<“\nSo ki tu ‘A’ la: “<<A;
        //samon247
        return 0;
    }
    Câu 3:

    Đề cần rõ ràng hơn ?

    Bình luận
  2. Câu 1 :

    uses crt;
    var a : array[1..100] of integer;
    n,i ,c,l : integer;
    begin c:=0; l:=0;
    write(‘Nhap n:’); readln(n);
    for i:=1 to n do begin
    write(‘Nhap phan tu ‘,i,’:’); readln(a[i]);
    end;
    for i:=1 to n do if a[i] mod 2=0 then c:=c+a[i] else l:=l+a[i];
    write(‘Tong chan :’, c);
    write(‘Tong le :’, l);
    readln
    end.

    Câu 2 :

    uses crt;
    var s : string;
    i : integer;
    d1,d2 : integer;
    begin
    d1:=0; d2:=0;
    write(‘Nhap xau :’); readln(s);
    for i:=1 to length(s) do if s[i]=’a’ then d1:=d1+1 else if s[i]=’A’ then d2:=d2+1;
    writeln(‘So luong ki tu a la :’, d1);
    writeln (‘So luong ki tu A la :’, d2);
    readln
    end.

    Bình luận

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