В алфавите языке племени «тумба-юмба» четыре буквы: «Ы», «Ш», «Ч» и «О». Нужно вывести на экран все возможные слова, состоящие из K букв, в которых есть по крайней мере две одинаковые буквы, стоящие рядом

const

K = 5; // можно сделать переменной и запрашивать у пользователя

alpha : array[1 .. 4] of char = ('Ы', 'Ш', 'Ч', 'О');

var count : integer := 0;

procedure p(s : string);

begin

if s.Length = K then

begin

writeln(s);

inc(count);

end

else

begin

var L := s.Length;

if (s.Length < 2) or (s[2] = 'Ы') then

foreach var ch : char in alpha do p(s + ch);

end;

end;

begin

p('');

writeln('count = ', count);

end.

эти числа заданы в двоичной системе счисления, переведем их в десятичную и решим :

111100% =  60% девочек

1100 = 12 мальчиков

12 мальчиков составляют 40% учащихся в классе

составим пропорцию

12 - 40%

х  - 100%

х = 12 * 100 : 40 = 30

ответ. в классе 30 учеников.

паскаль

откомпилирован в: pascal abc

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.