Информатика 7 клас хел
Pascal

Запишем условие задачи:

Поскольку в сообщениях одинаковое количество символов, то К1=К2. Соотношение количества информации можно записать как I1=1.5*I2. Общее кол-во символов в алфавите обозначается буквой N, по условию N1<=10, N2<=10.

Решение: I1=K1*i1; I2=K2*i2; Подставим в условие I1=1.5*I2 значения I1 и I2. Получаем K1*i1=1.5*K2*i2

Сократим в обеих частях уравнения К1 и К2, у нас останется

i1=1.5*i2

По условию мощности обоих алфавитов не превышают число 10, запишем это так

10>=2 в степени i1

10>=2 в степени i2

Предположим, что i2=1 бит, тогда i1=1.5 бита (а это противоречит условию)

Предположим, что i2=2 бита, тогда i1=3 бита -это и есть ответ задачи

var   s : string[50];
  i, j, k : word;  
 f : boolean;  
function isSpace(ch : char) : boolean;
begin   isSpace := false;  
if ch = ' ' then isSpace := true;
end;  
begin   f := false;  
   repeat     j := 0;
    writeln('введите строку, состоящую из 2 слов');
    readln(s);    
for i := 1 to length(s) do    
   if isSpace(s[i]) then  
    begin    
     inc(j);      
   k := i;       end;
     if j =1 then f := true;
    until f;    
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1)); 
end.
недавно такую писала :)