Не знаю насколько это правильно, на Паскале никогда не программировал, но код скину:
Задача 1:
var a, b, c: integer;
begin
readln (a);
readln (b);
readln (c);
if a > b then
if a < c then
write (a);
if a > c then
if a < b then
write (a);
if b > a then
if b < c then
write (b);
if b > c then
if b < a then
write (b);
if c > a then
if c < b then
write (c);
if c > b then
if c < a then
write (c);
if a = b then
a := b;
if b = c then
a := b;
c := a;
write (a);
readln
end.
Задача 2:
var a, b, c: integer;
begin
readln (a);
readln (b);
readln (c);
if a > b then
if a > c then
write (a);
if b > a then
if b > c then
write (b);
if c > a then
if c > b then
write (c);
if a = b then
a := b;
if b = c then
a := b;
c := a;
write (a);
readln
end.
1,5 Кбайта=1,5 * 1024 байта = 1,5 * 1024 *8 бит = 12288 бит
12288/3072 = 4 бита - на один символ
Значит N=2^4 = 16 символов в алфавите.
Один символ занимает:
\frac{1, 5 \cdot 1024 }{3072} = \frac{1, 5}{3}=0,5 байт = 4 бит
(1,5 Кбайт = 1,5 \cdot 1024 байт)
Мощность алфавита N (или количество символов в алфавите) равно 2^4=16
ответ: 16 символов содержит алфавит.
Х1*(Х2+Х3)*Х1+Х2+Х1*Х3
1) X1*X1=X1 (закон повторения). Имеем:
Х1*(Х2+Х3)+Х2+Х1*Х3
2) Раскрываем скобки:
Х1*Х2+Х1*Х3+Х2+Х1*Х3
3) X1*X3+X1*X3=X1*X3 (a+a=a - тот же закон повторения, только для сложения). Применяем и имеем:
Х1*Х2+Х1*Х3+Х2
4) Х1*Х2+Х2=X2 (правило склеивания). Имеем:
Х2+Х1*Х3
Решено. Все законы нетрудно проверить подставляя 0 или 1