#include <iostream>
#include <cstdlib>
#include <ctime>
int main()
{
using namespace std;
const int n = 10; //количество элементов массива
int Arr[n];
//как-нибудь заполняем массив
srand(time(0));
int i;
for (i = 0; i < n; ++i)
Arr[i] = rand() % (n * n) + 1;
//выведем его на экран
for (i = 0; i < n; ++i)
cout << Arr[i] << " ";
cout << endl;
int p;
for (i = 1; i < n; ++i)
{
p = i;
while (p % 2 == 0)
p /= 2;
if (p == 1)
cout << "Arr[" << i << "] = " << Arr[i] << endl;
}
cout << endl;
return 0;
}
uses crt;
var a:integer;
begin
write('Введите число: ');
readln(a);
if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13');
writeln;
if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7');
end.
Если нужно выполнять программу из-под программной оболочки, удали первую строку.
<span>любое число от 1 до 9 ( пример 12359, 34526, 45637)
</span>
N=2i (2 в степени i) - формула Шеннона
N - мощность алфавита. Отсюда i=7
То есть один символ несёт информационный объём в 7 бит. А их аж 8192. Перемножаем 8192*7 и делим на 8 (количество битов в одном байте) = 7168 байта. Что составляет 7168/1024=7 Кб
Ответ: 7 Килобайт
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>1)</em>
begin
var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println;
var jn:=b.FindIndex(x->x<0); // индекс первого отрицательного
var jm:=b.IndexMax; // индекс первого максимального
Swap(b[jn],b[jm]); b.Println
end.
<u>Пример</u>
n= 15
33 60 -72 13 -15 -36 21 98 -21 -22 56 -20 0 -98 28
33 60 98 13 -15 -36 21 -72 -21 -22 56 -20 0 -98 28
<em>2)</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a:=a[:4]+Arr(8)+a[4:]; a.Println;
end.
<u>Пример</u>
n= 10
65 56 31 74 -4 -54 43 8 -58 -94
65 56 31 74 8 -4 -54 43 8 -58 -94
