Методом Шеннона – Фано построить оптимальный код для передачи 100 сообщений при качественных признаков вторичного алфавита.
​

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);     if a[i]< 0 then l: =l+a[i];     if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.

a = sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));

b = sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));

c = sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));

writeln("периметр = ",a+b+c);

s = {формула герона}

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.

if(a> b) cout < < a;

if(a< b)cout < < b;