Конспект по информатике параграф 18-20 7 класс

ТЗаметим, что буква Й может встречаться в слове не более одного раза или не встречаться совсем. Рассмотрим два случая.
Пусть буква Й стоит на втором месте. Тогда, поскольку на соседних позициях не может стоять буква И, количество возможных слов равно 5 · 1 · 5 · 6 · 6. Также буква Й может стоять на третьем и четвёртом месте. Значит, всего слов, в которых используется буква Й, равно 5 · 1 · 5 · 6 · 6 · 3 = 2700.
Если буква Й не используется, количество возможных слов равно 6 · 6 · 6 · 6 · 6 = 7776.
Таким образом, всего возможных кодов 2700 + 7776 = 10476.
Ответ: 10476 кодов всего может составить Тимофей.

Uses crt;

Type R=array[1..100] of integer;

Var

A:R;

i,n,s,pr,k,sum:integer;

Begin

clrscr;

pr:=1;

k:=0;

sum:=0;

writeln('Введите размер массива');

readln(n);

writeln('Введите значение S');

readln(s);

writeln('Введите массив');

 for i:=1 to n do

  begin

   write('A[',i,']= ');

   read(A[i]);

   writeln;

    if A[i]<=s then

      pr:=pr*A[i];

    if A[i]=1 then

      k:=k+1;

    if A[i]=A[1] then

      sum:=sum+A[i];

  end;

writeln('Массив после преобразования');

 for i:=1 to n do

  begin

   if A[i]<>i then

     A[i]:=sum;

   writeln(A[i]:4);

  end;

writeln;

writeln('произведение элементов вектора, не превышающих число S: ', pr);

writeln('количество единичных элементов массива: ', k);

end.