1-Формализация
2-Моделирование
3-Реляционная
4-Компьютерная
5-Ключ
6-Информационная
7-Таблица
8-Запись
9-Поле
10-Математическая
Const
var s:integer;
procedure ploshad poverhnosti (s:integer);
var h,l,sbok:integer;
begin
writeln (' vedite l i h');
readln (l,h);
sbok:=h*(l^2);
end;
begin
s:=(ploshad poverhnosti)+2*(l^2);
writeln(s,' ');
readln;
end.
Но это очень не точно.
Одна буква сообщения равна 1 байту, так как буква состоит из 8значного двоичного кода, 1знак которой равен 1 биту. 8 бит= 1 байт, считаешь кол-во букв в сообщении и умножаешь на 1 байт. получается кол-во байтов, то есть кол-во информации в сообщении