K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

31 tháng 10 2021

#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t,dem;
//chuongtrinhcon
bool kthh(long long n)
{
    if (n<=1) return(false);
    else
    long long t=0;
    for (long long i=1; i<=n/2;i++)
        if (n%i==0) t=t+i;
    if (t==n) return(true);
    else return(false);
}
//chuongtrinhchinh
int main()
{
    freopen("hoanhao.inp","r",stdin);
    freopen("hoanhao.out","w",stdout);
    cin>>n;
    t=0;
    dem=0;
    for (i=1; i<=n; i++)
    {
        cin>>x;
        if (kthh(x)==true)
        {
            dem++;
            t=t+x;
        }
    }
    cout<<dem<<endl;
    cout<<t;
    return 0;
}

 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

freopen("dayd.inp","r",stdin);

freopen("dayd.out","w",stdout);

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

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

if (a[i]>0) cout<<a[i]<<" ";

return 0;

}

25 tháng 4 2020

Program hotrotinhoc_hoc24;

const fi='CAPSO.INP';

fo='CAPSO.OUT';

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

i,j,n,x,d: integer;

f: text;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:=1 to n do read(f,a[i]);

readln(f);

read(f,x);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

d:=0;

for i:=1 to n do

for j:=i to n do

if i+j=x then inc(d);

write(f,d);

close(f);

end;

begin

ip;

out;

end.

const fi='divk.inp';

fo='divk.out';

var f1,f2:text;

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

i,n,k,dem,j,x,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n,k);

for i:=1 to n do 

  read(f1,a[i]);

dem:=0;

for i:=1 to n do 

  for j:=1 to n do 

begin

if i<j then 

begin

t:=0;

for x:=i to j do 

  t:=t+a[x];

if t=k then inc(dem);

end;

for i:=1 to n do 

  if k=a[i] then inc(dem);

writeln(f2,dem);

close(f1);

close(f2);

end.

15 tháng 10 2022

#include <bits/stdc++.h>
using namespace std;
#define nhungcute ios_base::sync_with_stdio; cin.tie(0); cout.tie(0);
const int N=1500;
long long n,k,a[N],i,j,c[N][101];
int main(){
nhungcute
    cin>>n>>k;
    for(i=1;i<=n;i++)
        cin>>a[i];
    for(i=1;i<=n;i++){
        a[i]=a[i]%k;
    }
    for(i=1;i<k;i++)
    c[1][i] =-1e9;
    c[1][a[0]]=0;
    c[1][a[1]]=1;
    for(i=2;i<=n;i++){
        for(j=0;j<k;j++){
        c[i][j]=max(c[i-1][j],c[i-1][(j-a[i]+k)%k]+1);
        }
    }
    cout<<c[n][0];
    return 0;
}

 

Perfect !!Một xâu được gọi là hoàn hảo nếu mọi xâu con đối xứng của nó đều có độ dài là số lẻ.Xâu con là tập hợp khác rỗng những ký tự liên tiếp của xâu mẹ.VD: a,bced,bbca,bced,bbc là những xâu con của abbcedabbced ; abe,aed,acabe,aed,ac không phải những xâu con của abbced.abbced.Xâu đối xứng là xâu khi vết ngược hay viết xuôi thì nó như nhau.VD: abba,abcba,aaaaabba,abcba,aaaa là xâu đối...
Đọc tiếp

Perfect !!

Một xâu được gọi là hoàn hảo nếu mọi xâu con đối xứng của nó đều có độ dài là số lẻ.

Xâu con là tập hợp khác rỗng những ký tự liên tiếp của xâu mẹ.

VD: a,bced,bbca,bced,bbc là những xâu con của abbcedabbced ; abe,aed,acabe,aed,ac không phải những xâu con của abbced.abbced.

Xâu đối xứng là xâu khi vết ngược hay viết xuôi thì nó như nhau.

VD: abba,abcba,aaaaabba,abcba,aaaa là xâu đối xứng ; ab,cca,dfggfrab,cca,dfggfr không phải xâu đối xứng.

Cho xâu S. Kiểm tra xem S có hoàn hảo hay không?

Dữ liệu vào

Một dòng duy nhất chứa xâu S(|S|≤105)- độ dài của xâu S

Dữ liêu đảm bảo xâu S chỉ chứa các chữ cái từ a tới z

Kết quả

In ra "YES" nếu S hoàn hảo, ngược lại in ra "NO"

Sample Input 1

 

tranthanhnhan

Sample Output 1

 

YES

Sample Input 2

 

lamminhhien

Sample Output 2

 

NO

Giới hạn

Có 60% số lượng test thỏa mãn điều kiện: |S|≤103|S|≤103

Có 40% số lượng test thỏa mãn điều kiện: |S|≤105|S|≤105

Lưu ý: Dùng C++ và xâu 

0
15 tháng 4 2021

tự làm đi dễ mà:)))))

 

Dễ thì bạn làm đi

Ngày nghỉ cuối tuần An được mẹ cho đi siêu thị BigC để mua thực phẩm để dự trữ trong một tuần, vì mẹ An phải đi công tác dài ngày trong tuần tới. Sau khi chọn đủ các gói hàng cần mua, thanh toán tiền xong và đến lúc cần đóng hàng vào hộp để mang về nhà. Số gói hàng mà hai mẹ con chọn mua là n gói với kích thước k1, k2, ...,kn. An có nhiệm vụ giúp mẹ đóng những gói hàng này vào...
Đọc tiếp

Ngày nghỉ cuối tuần An được mẹ cho đi siêu thị BigC để mua thực phẩm để dự trữ trong một tuần, vì mẹ An phải đi công tác dài ngày trong tuần tới. Sau khi chọn đủ các gói hàng cần mua, thanh toán tiền xong và đến lúc cần đóng hàng vào hộp để mang về nhà. Số gói hàng mà hai mẹ con chọn mua là n gói với kích thước k1, k2, ...,kn. An có nhiệm vụ giúp mẹ đóng những gói hàng này vào những chiếc hộp giấy bìa cứng. Biết rằng siêu thị chỉ còn những chiếc hộp có kích thước m thỏa mãn ki ≤ m (i = 1, 2, ... ,n).

Hỏi An cần ít nhất bao nhiêu hộp để có thể đóng đủ các gói hàng mang về?

Dữ liệu: Bigc.inp Gồm 2 dòng:

Dòng 1: Ghi hai số nguyên n và m (1 ≤ 𝑛 ≤ 104, m ≤ 109)

Dòng 2: Ghi 𝑛 số nguyên dương k1, k2, , k𝑛 (1 ≤ ki ≤ 109, với mọi i = 1, 2, ... , n)

Kết quả: Bigc.out Gồm 1 dòng duy nhất ghi một số nguyên là số hộp ít nhất cần phải lấy

in theo tập tin pascal

Ví dụ:

BIGC.INP

BIGC.OUT

6 200

30 70 150 80 120 75

3

1
25 tháng 2 2020
https://pastebin.com/jKWMZiwM mình chỉ có sol C++ thui :'(
15 tháng 3 2020

tích đúng này :)

26 tháng 7 2023

#include <iostream>

#include <map>

using namespace std;

int main() {

       int n;

       cin >> n;

       map<int, int> count;

       for (int i = 0; i < n; i++) {

              int x;

              cin >> x;

              count[x]++;

       }

       int ans = 0;

       for (auto p : count) {

              int x = p.second;

              ans += (x * (x - 1)) / 2;

       }

       cout << ans;

       return 0;

}

26 tháng 7 2023

dùng mảng đc ko b?

 

Một xâu được gọi là hoàn hảo nếu mọi xâu con đối xứng của nó đều có độ dài là số lẻ. Xâu con là tập hợp khác rỗng những ký tự liên tiếp của xâu mẹ. VD: a,bced,bbca,bced,bbc là những xâu con của abbcedabbced ; abe,aed,acabe,aed,ac không phải những xâu con của abbced.abbced. Xâu đối xứng là xâu khi vết ngược hay viết xuôi thì nó như nhau. VD: abba,abcba,aaaaabba,abcba,aaaa là xâu đối xứng ;...
Đọc tiếp

Một xâu được gọi là hoàn hảo nếu mọi xâu con đối xứng của nó đều có độ dài là số lẻ. Xâu con là tập hợp khác rỗng những ký tự liên tiếp của xâu mẹ. VD: a,bced,bbca,bced,bbc là những xâu con của abbcedabbced ; abe,aed,acabe,aed,ac không phải những xâu con của abbced.abbced. Xâu đối xứng là xâu khi vết ngược hay viết xuôi thì nó như nhau. VD: abba,abcba,aaaaabba,abcba,aaaa là xâu đối xứng ; ab,cca,dfggfrab,cca,dfggfr không phải xâu đối xứng. Cho xâu S. Kiểm tra xem S có hoàn hảo hay không? Dữ liệu vào Một dòng duy nhất chứa xâu S(|S|≤105)- độ dài của xâu S Dữ liêu đảm bảo xâu S chỉ chứa các chữ cái từ a tới z Kết quả In ra "YES" nếu S hoàn hảo, ngược lại in ra "NO" Sample Input 1 tranthanhnhan Sample Output 1 YES Sample Input 2 lamminhhien Sample Output 2 NO

*code pascal

 

0