4. запишите на языке паскаль программу циклического обмена значениями трёх переменных a, b, c. например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.

program obmen;

var a,b,c,x,y: integer;

begin

a: =x;

b: =a;

c: =b;

x: =c;

writeln (a,b,c)

end.

используем формулы на мощность алфавита:

где i - вес символа, а n - мощность алфавита (количество букв в нём).

узнаем информационный вес символа каждой лотереи:

первая

нужно взять минимально возможное целое i, чтобы выражение было равно или больше мощности алфавита.

2⁶ = 64, значит один символ весит 6 бит.

6 × 6 = 36 бит - информационный объём первой лотереи.

вторая

.

2⁶ = 64 бита, значит один символ весит 6 бит.

6 × 5 = 30 бит - информационный объём второй лотереи.

ответ: сообщение о результатах лотереи "6 из 36" несёт больше информации.

#include < iostream> using namespace std; int main() {     setlocale (lc_all,"russian");     int number;     do     {         cout < < "введите номер группы: ";         cin > > number;     }     while (number< 100 || number> 999);     char *groups[9]={"","","юридический",                               "","","",                               "биологический","",""};     cout < < groups[number/100-1] < < ", поступил в 200" < < number/10%10             < < " году\n";     return 0; } как понял, так и написал