Ну вроде бы как то так.
15-5=10 (дети, которые отлично учатся)
10-5=5 (дети, которые ходят на спорт)
10+5=15 (вобщем)
15+5=20 (детей в классе)
11100(2) - 28 учеников
15(8) - 13 девочек
Мальчиков 28-13=15
#include <iostream>
#include <ctime>
int main()
{
using namespace std;
const int SIZE = 25;
int massive[SIZE];
//1й пункт
cout << "Enter number: ";
int num;
cin >> num;
int s = 0;
for (int i = 1; i <= num; i++)
if (num % i == 0)
if (i % 2 == 1)
s = s + i;
cout << "The sum of the odd divisors: " << s << endl;
//2й пункт
for (int i = 0; i < SIZE; i++)
{
cout << "Enter #" << i + 1 << " element: ";
cin >> massive[i];
}
for (int i = 0; i < SIZE; i++)
if (massive[i] < 0)
{
massive[i] = 0;
break;
}
for (int i = 0; i < SIZE; i++)
cout << massive[i] << ' ';
//3й пункт
for (int i = 0; i < SIZE; i++)
massive[i] = i + 1;
for (int i = 0; i < SIZE; i++)
if (massive[i] % 3 == 0)
massive[i] *= massive[2];
cout << endl;
for (int i = 0; i < SIZE; i++)
cout << massive[i] << ' ';
//4й пункт
srand(time(0));
for (int i = 0; i < SIZE; i++)
massive[i] = rand();
cout << endl;
for (int i = 0; i < SIZE; i++)
cout << massive[i] << ' ';
cout << endl;
cout << "Enter number: ";
int num2;
cin >> num2;
bool ifsum = false;
for (int i = 0; i < SIZE - 1; i++)
if (massive[i] + massive[i + 1] == num2)
{
ifsum = true;
break;
}
if (ifsum)
cout << "yes";
else
cout << "no";
cout << endl;
return 0;
}
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := SeqWhile(1, i -> i + 1, i -> i < 20);
Println(a);
Println(a.Where(x -> x mod 3 = 0).Average);
Writeln();
for var i := ReadInteger('a =') to ReadInteger('b =') do
writeln(i, ' ', i * i, ' ', i * i * i);
end.
Задайте формат ячейки Эксель, куда помещаете результат, "000000"