1)
Program Имя программы;
Uses Подключаемые библиотеки (модули);
Label Список меток основной программы;
Const<span> Введение констант;</span>
Type Описание новых типов;
Var<span> Описание переменных и их типов;</span>
<span>Определение </span><span>процедур;</span>
<span>Определение </span><span>функций;</span>
Begin
Тело основной программы;
End.
2)x_y ; progl
3)
integer целая
char один символ
boolean логическая
real вещественная
string символьная строка
4)
5+y:=x;
a:=7,5;
b:=2*(a;
5)
4
0
не верное выражение(выдаст ошибку)
1
5)
var a,b,p:real;
begin
Write('Введите a >>> ');
Read(a);
Write('Введите b >>> ');
Read(b);
p:=a+b+Sqrt(a*a+b*b);
Writeln('===================');
Write('Периметр >>> ',p);
end.
Дано: ИНФОРМАТИКА, i-?
Решение:
<span> i=log2(1/P)
</span>И: i=log2(1/0,062)=4 бит
Н: i=log2(1/0.053)=4,24 бит
Ф: i=log2(1/0.002)=8,97 бит
О: i=log2(1/0.090)=3,47 бит
Р: i=log2(1/0.040)=4,64 бит
М: i=log2(1/0.026)=5,27 бит
А: i=log2(1/0.062)=4,01 бит
Т: i=log2(1/0.053)=4,24 бит
К: i=log2(1/0.028)=5,16
i=4+4,24+8,97+3,47+4,64+5,27+4,01+4,24+4+5,16+4,01=52,01 бит
Ответ: 52,01 бит
Количество последовательностей = 2^6 = 64
1. 0
2. 1
3. 1
4. 1
5. 1
6. 1
7. 1
8. 1
9. 0
10. 1
11. 1
12. 1
13. 1
14. 1
15. 1
16. 1
Автора напиши я так не могу мне надо видеть тетрадь не на фото.