1) 5101912
5-10-19-12 диск
5-10-1-9-12 диазк
5-10-19-1-2 дисаб
5-10-1-9-1-2 диазаб
2) [10, 64, 32, 0, 65536]
Вес одного символа 
бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес текста/сообщения
I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)
K = 10 * 64 * 32 шт = 20480 шт
Вес текста I = 20480 * 16 бит = 327680.0 бит =
= 40960.0 байт = 40.0 Кбайт = 0.0390625 Mбайт
3)
С:\Рабочий стол\Снегири.png
С:\Пользователи\Никита\Фото\Истра.jpeg
3. а= 5
4. а=64
5. вывдет 32 ( получается 32, потому что нету пробелов между 3 и 2)
6. 464 (потому что между 6 и 4 нету пробелов)
7. i= 1
Function S(a,b,c:real):real;
Var
p:real;
Begin
p:=(a+b+c)/2;
result:=Sqrt(p*(p-a)*(p-b)*(p-c))
End;
Var
a,b,c:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a<b+c)and(b<c+a)and(c<a+b) then WriteLn('S = ',S(a,b,c))
else WriteLn('Треугольник не существует')
End.
Пример:
a = 3
b = 4
c = 5
S = 6
2.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=0)and(x*x+y*y>=3*3)and(x*x+y*y<=5*5)
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = 4
y = 1
Да
7.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=-6)and
((y<=7)and(y>=2)and(x<=-1)or(y<=2)and(y>=-3)and(x<=-3))
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = -2
y = 1
Нет
6.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and((x<=0)or(x>=0)and(y<=0))
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = 3
y = -3
Да</span></span></span>
