. Только ответы, решение не нужно. 1) Пётр составляет слова длиной 6 букв, которые начинаются с гласной буквы. Всего он
смог составить 486 комбинаций слов. Сколько согласных букв использует Петр для
составления слов, если известно, что в используемом алфавите только две гласные?
Каждая буква может входить в слово несколько раз.
2) Игорь составляет таблицу кодовых слов для передачи сообщений, каждому сообщению
соответствует своё кодовое слово. В качестве кодовых слов Игорь использует 4-
буквенные слова, в которых есть только буквы A, B, C, D, X, причём буква X появляется
ровно 1 раз. Каждая из других допустимых букв может встречаться в кодовом слове
любое количество раз или не встречаться совсем. Сколько различных кодовых слов
может использовать Игорь?
3) Все четырёхбуквенные слова, составленные из букв В, И, Н, О, Г, Р, А, Д записаны в
алфавитном порядке и пронумерованы, начиная с 1. Начало списка выглядит так:
1.
2. АААВ
3. АААГ
4. АААД
5. АААИ
6. АААН
7. АААО
8. АААР
9. ААВА
…
Под каким номером в списке идёт первое слово, которое начинается с ИР?
4) Петя составляет 7-буквенные слова из букв В, Е, Б, И, Н, А, Р. Каждую букву нужно
использовать ровно 1 раз, при этом код при этом нельзя ставить подряд две гласные
или две согласные. Сколько различных кодов может составить Петя?
5) Игорь составляет таблицу кодовых слов для передачи сообщений, каждому сообщению
соответствует своё кодовое слово. В качестве кодовых слов Игорь использует 4-
буквенные слова, в которых могут быть только буквы П, Р, И, К, А, З, причем буква К
появляется ровно 1 раз. Каждая из других допустимых букв может встречаться в
кодовом слове любое количество раз или не встречаться вовсе. Сколько различных
кодовых слов может использовать Игорь?
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
1. Max - это системная функция/ Не стоит называть таким именем свою.
2. Последнее условие в процедуре не совсем понятно. И для нахождения максимального значения оптимальнее это делать в одном цикле. В PascalABC так вообще можно написать m:=a.max; и ВСЁ. Но если хотите как на Pascal - Я исправил.
3. Функция ищет максимальное значение в массиве.
Pascal
var
maxa:integer;
procedure Getmax(c:integer; var m:integer);
var
i:integer;
a: array [1..100] of integer;
begin
for i:=1 to c do begin
a[i]:= random (20);
write(a[i],' ');
if m<a[i] then
m:=a[i];
end;
writeln;
end;
begin
Getmax(100,maxa);
writeln('Max=', maxa);
end.