По каналу связи сообщения, содержащие только заглавные
латинские буквы. для передачи используется двоичный код,
удовлетворяющий условию фано. кодовые слова для некоторых букв
известны: a – 111, b – 000, с – 01, d – 1101, e – 100, f – 0010. укажите
кратчайшее возможное кодовое слово для буквы l. если таких кодов
несколько, укажите код с наименьшим числовым значением.

1 кбайт=1024 байта

1 байт=8 бит

81920/8=10240 байт

10240/1024=10 кбайт

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

var a: integer; beginreadln(a); write (a div 10); end.