5. Вася составляет 5-буквенные коды из букв К, А, Л, И, Й. Каждую букву нужно использовать ровно 1 раз, при этом код не может начинаться с буквы Й и не может содержать сочетания ИА. Сколько различных кодов может составить Вася?

78

Объяснение:

Если бы единственное условие было бы использовать каждую букву один раз, ответ был бы 5 * 4 * 3 * 2 * 1 = 5! (на первое место можно поставить любую из 5 букв, на второе любую из 4 и т.д.)

Из них:

По формуле включений-исключений ответ:

5! - 4! - 4! + 3! = 120 - 24 - 24 + 6 = 78

8, 1, 4, 1, 5, 9, 6, 7, 2

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.