Я не знаю!!!!!!!!! Не розуміюсь в інформатиці!
_________________________
var
z,x,y:longint;
begin
write ('X = > ');readln(x);
write ('Y = > ');readln(y);
z:=(sqr(x+1)*(x-1))-(sqr(18*x*y));
writeln ('Z = ',z);
readln;
end.
program raf105;
var x,y:integer;
begin
writeln('Введите 2 числа');
readln(x,y);
if y<>0
then writeln(x,'/',y,'=',x/y)
else writeln('На ноль делить нельзя');
end.
<em>Написано на языке PascalABC.NET</em>
Дан алфавит с N символоми.
Для начала, нужно определить мощность алфавита (I). Это количество бит информации на 1 символ этого алфавита. Суть в том, чтобы каждой букве алфавита (включая плобельные символы и знаки препинания) поставить в соответствие уникальное двоичное число, которое будет кодом этой буквы. Это можно сделать по формуле (скобки в формуле - округление к большему)
Если затем перемножить количество символов в сообщении (М) на вес одного символа (I), получим вес сообщения.