Для чого здійснюється публікація сайтів? як опублікувати сайт?​

x - информационный вес одного символа

n - мощность алфавита (кол-во символов)

размер содержащейся в тексте информации находим по формуле:  

k - кол-во символов в тексте 

амазонка 

- один символ несет 8 битов (1 байт)

- байт в письме амазонки

омега:  

один символ несет 7 битов

байт в письме омеги 

1)

s : = 0;

for i : = 1 to k do

begin

  if i mod 2 < > 0 then

      s: = s + i;

end;

2)

for i : = 5 to 55 do

begin

  if i mod 2 < > 0 then

      writeln(i);

end;

3)

s : = 1;

for i : = n to m do

begin

  s: = s * i;

end;

4)

s : = 0;

for i : = 10 to 15 do

begin

        s: = s + i;

end;

обрамления там везде одинаковые

{кажется так. если будет ощибка в лс напиши}

program rrr;

uses crt;

var a,b,c,s: integer; {если будут дробные значения то вместо integer ставь real}

begin

writeln('введи стороны треугольника: '); read(a,b,c);

if a*a=b*b+c*c then

begin

s: =b*c/2;

writeln('площадь=',s);

end

else if b*b=a*a+c*c then

s: =a*c/2;

writeln('площадь=',s);

end

else if  c*c=a*a+b*b then

s: =a*b/2;

writeln('площадь=',s);

end

else s: =a+b+c;

writeln('периметр= ',s);

readln;

end.