кто знает 2. Дана кодировочная таблица (первая цифра кода - номер строки, вторая - номер столбца):
0
1
2
3
4
5
6
7
8
0 А Б В Г Д Е Ж З И
1 Й К Л М Н О П Р С
2 Т У Ф Х Ц Ч Ш Щ Ъ
3 Ы Ь Й Э Ю Я _ . ,
4 : ; - ! "
С этой кодировочной таблицы зашифруйте фразу:
ТЕЛЕГРАММА. Решение: 20 05 12 05 03 17 00 13 13 00

1 бит на 1 символ, поэтому:

14400*10=144000 символов 

336600*10=3366000 символов 

var

  st: array[0..10000]of char;   s,s1: string;   g,g1,i,j,z: longint;   t: char;

begin

  z: =0;

  readln(s);

  readln(s1);

  g: =length(s);

g1: =length(s1);

for i: =1 to g do

for j: =1 to g1 do if s[i]=s1[j] then

begin

  inc(z);

  st[z]: =s[i];

  break;

end;

for i: =1 to z-1 do for j: =i+1 to z do if st[i]> st[j] then

begin

  t: =st[i];

  st[i]: =st[j];

  st[j]: =t;

end;

st[z+1]: ='-';

for i: =1 to z do i st[i]< > st[i+1] then write(st[i],' ');

end.

решение для 4-байтного представления

запишем двоичное число в форме нормализованного двоичного числа с плавающей точкой

0,110010001*10^1000

10- основание (2дес=10дв)

1000-порядок(8дес=1000дв)

определим машинный порядок:

мп = 1000 + 1000000 = 1001000

запишем число

01001000 0000000 00000001 10010001

порядок          ман                тис                  са

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно