решить .
46) вася составляет 3-буквенные слова, в которых есть только буквы б, а, л, к, о, н, причём буква б используется в каждом слове хотя бы 1 раз. каждая из других допустимых букв может встречаться в слове любое количество раз или не встречаться совсем. словом считается любая допустимая последовательность букв, не обязательно осмысленная. сколько существует таких слов, которые может написать вася?
56) (м.в. кузнецова) вася составляет 5-буквенные слова, в которых есть только буквы с, и, р, о, п, причём в каждом слове обязательно есть ровно одна буква о, при этом стоять она может только после согласной. каждая из других допустимых букв может встречаться в слове любое количество раз или не встречаться совсем. словом считается любая допустимая последовательность букв, не обязательно осмысленная. сколько существует таких слов, которые может написать вася?
64) иван составляет 4-буквенные слова из букв а, б, в, г, д, я. в каждом слове содержится ровно одна буква я, причём только на первой или последней позициях. сколько различных кодовых слов может составить иван?
96) вася составляет 7-буквенные коды из букв к, о, м, б, а, й, н. каждую букву нужно использовать ровно 1 раз, при этом код не может начинаться с буквы й и не может содержать сочетания ай. сколько различных кодов может составить вася?
Во-вторых, цикл с предусловием(while) выполняется только тогда, когда его условие возвращает ложь. Если условие возвращает правду, цикл завершается. Бывает так, что при попытке первой итерации цикла условие уже возвращает правду. В этом случае цикл не будет выполнен ни разу.
Цикл с предусловием(repeat), наоборот, выполняется, пока условие возвращает правду и завершается ложью. Стоит заметить, что если цикл с предусловием проверяет своё условие перед итерацией, цикл с постусловием делает это после, а это значит, что последний выполнится хотя бы один раз.
problems : array [0..9] of String = ('x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10', 'x1+5=10','x1+5=10', 'x1+5=10', 'x1+5=10');
answers : array [0..9] of String = ('-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5', '-5');
var
countOfAnswers, counter: integer;
userAnswer: String;
begin
countOfAnswers := 0;
for counter:=0 to 9 do
begin
write('Введите ответ уравнения ', problems[counter], ' : ');
readln(userAnswer);
if userAnswer = answers[counter] then Inc(countOfAnswers);
end;
if countOfAnswers > 8 then writeln('Отлично')
else if countOfAnswers > 5 then writeln('Хорошо')
else writeln('Плохо');
end.