Весь интеренет облазила, но не нашла ничего путного, все имеющиеся программы не работают или составлены неправильно. используя все цифры от 1 до 9 по одному разу в различных комбинациях и операции сложения и вычитания, получить в сумме 100. надо написать программу на pascal.

Var    s,r,k: string;           j: integer; begin   write('строка:   ');   readln(s);       foreach k in s.split(' ').distinct do       begin         j: =0;         foreach r in s.split(' ') do         if r=k then j: =j+1;         writeln('слово   ','"',k,'"','   встречается ',j,' раз');       end; end.

      чтобы ответить на вопрос «сколько информации? », надо определить единицу информации каждого символа. для алфавита (набора букв, цифр, скобок, знаков препинания и других символов) существует понятие информационного веса символа — количества информации, которое несет один символ алфавита, которое обозначается как i и выражается в битах (bit).       количество информации в сообщении, представленного символами, складывается из информационных весов і составляющих его символов, причём информационный объём сообщения i равен произведению количества символов в сообщении k на информационный вес символа алфавита i, что записывается как i = k× i.      из сообщения в следует, что количество всех неповторяющихся символов алфавита неизвестной планеты равно 8. для такого алфавита і = 3 bit (так как 2³ =8), а следовательно, поскольку в этом сообщении k = 12 символов, то информации оно несёт l = k× i = 12× 3 = 36 bit.