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.

29 tháng 8 2023
 program TimDoanConCoTongK; const MAX_N = 100; var a: array[1..MAX_N] of Integer; N, K: Integer; i, j, sum: Integer; begin // Nhập vào dãy số và K Write('Nhap vao so phan tu cua day: '); ReadLn(N); WriteLn('Nhap vao cac phan tu cua day:'); for i := 1 to N do begin Write('a[', i, '] = '); ReadLn(a[i]); end; Write('Nhap vao gia tri K: '); ReadLn(K); // Tìm các đoạn con có tổng bằng K WriteLn('Cac doan con co tong bang ', K, ':'); for i := 1 to N do begin sum := 0; for j := i to N do begin sum := sum + a[j]; if sum = K then begin for k := i to j do begin Write(a[k], ' '); end; WriteLn; end; end; end; end.

Chương trình trên cho phép người dùng nhập vào dãy số và giá trị K. Sau đó, chương trình sẽ tìm tất cả các đoạn con trong dãy có tổng bằng K và in chúng ra màn hình.

Ví dụ, với dãy số [1, 2, 3, 4, 5] và K = 7, chương trình sẽ in ra:

 2 3 4 5 2

Đây là tất cả các đoạn con có tổng bằng 7 trong dãy số đã cho.

uses crt;

var i,n,t,j,kt:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=2 to n do

if n mod i=0 then

begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do

if i mod j=0 then kt:=1;

if kt=0 then t:=t+i;

end;

write(t);

readln;

end.

29 tháng 8 2023

cảm ơn bn đã giúp mik nhiều bn thông cảm

Dãy hoàn hảoTrong một buổi học Toán, An được học khái niệm về số có tính chất đặc biệt. Số hoàn hảo là số có tổng các ước trừ nó ra thì bằng chính nó.Ví dụ: Số 6 là số hoàn hảo vì 1+2+3=6            Số 8 không phải là số hoàn hảo vì 1+2+4=7≠8Cho một dãy số gồm n số nguyên a1, a2,…..an. Hãy giúp An đếm xem trong dãy có bao nhiêu số là số hoàn hảo.Dữ liệu vào: Từ file văn bản hoanhao.inp:-         Dòng 1: n số...
Đọc tiếp

Dãy hoàn hảo

Trong một buổi học Toán, An được học khái niệm về số có tính chất đặc biệt. Số hoàn hảo là số có tổng các ước trừ nó ra thì bằng chính nó.

Ví dụ: Số 6 là số hoàn hảo vì 1+2+3=6

            Số 8 không phải là số hoàn hảo vì 1+2+4=7≠8

Cho một dãy số gồm n số nguyên a1, a2,…..an. Hãy giúp An đếm xem trong dãy có bao nhiêu số là số hoàn hảo.

Dữ liệu vào: Từ file văn bản hoanhao.inp:

-         Dòng 1: n số nguyên

-         Dòng 2: Các số nguyên a1, a2,…..an.

Kết quả: Ghi ra file văn bản hoanhao.out

-         Dòng 1: Số lượng số hoàn hảo

-         Dòng 2: Tổng của các số hoàn hảo có trong dãy

Nếu không tồn tại số hoàn hảo trong dãy thì ghi Dãy không có số hoàn hảo

1
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;
}

 

a)

-bạn Hoàng An:=SUM(c2;d2;e2)

-bạn Duy Hùng: =SUM(c3;d3;e3)

-bạn Lành: =Sum(c4;d4;e4)

-bạn Khánh: =Sum(c5;d5;e5)

-bạn Tình: =SUm(c6;d6;e6)

b)

-bạn Hoàng An:=Average(c2;d2;e2)

-bạn Duy Hùng: =Average(c3;d3;e3)

-bạn Lành: =Average(c4;d4;e4)

-bạn Khánh: =Average(c5;d5;e5)

-bạn Tình: =Average(c6;d6;e6)

#include <iostream>
using namespace std;
int main()
{
    int n,i,j;
    cout<<"Nhap n="; cin>>n;
    for (i=1; i<=n; i++)
    {
        for (j=i; j<=i+n-1; j++)
            cout<<j<<" ";
        cout<<endl;
    }
    return 0;
}

 

1 tháng 7 2023

```cpp
#include <iostream>
#include <vector>
#include <algorithm>

int main() {
int n;
std::cout << "Enter the number of integers (n < 10^5): ";
std::cin >> n;

std::vector&lt;int&gt; numbers(n); std::cout &lt;&lt; &quot;Enter &quot; &lt;&lt; n &lt;&lt; &quot; integers: &quot;; for (int i = 0; i &lt; n; ++i) { std::cin &gt;&gt; numbers[i]; } int sumOfOdd = 0; for (int i = 0; i &lt; n; ++i) { if (numbers[i] % 2 != 0) { sumOfOdd += numbers[i]; } } std::sort(numbers.begin(), numbers.end()); std::cout &lt;&lt; &quot;Sum of odd integers: &quot; &lt;&lt; sumOfOdd &lt;&lt; std::endl; std::cout &lt;&lt; &quot;Sorted sequence: &quot;; for (int i = 0; i &lt; n; ++i) { std::cout &lt;&lt; numbers[i] &lt;&lt; &quot; &quot;; } std::cout &lt;&lt; std::endl; return 0;

}
```

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if i mod 2=0 then write(i:4);

writeln;

for i:=1 to n do 

if i mod 2=1 then write(i:4);

readln;

end.

D
datcoder
CTVVIP
1 tháng 11 2023

B. 4

Gồm:

1. Tổ chức và truy cập thông tin

2. Tìm kiếm thông tin trên Internet

3. Thư điện tử

4. Vấn đề bảo mật thông tin

3 tháng 11 2023

Có 6 dịch vụ:

- Tổ chức và khai thác thông tin trên Internet.

- Tìm kiếm thông tin trên Internet.

- Thư điện tử.

- Đào tạo qua mạng.

- Thương mại điện tử.

- Hội thảo trực tuyến.

Chọn D