1080
Объяснение:
Разберём 2 варианта.
1) когда буквы Р и Г постоянны, буква Н не используется, а остальные 3 буквы используются произвольно.
Получаем, что у буквы Р есть 5 вариантов постановки, у буквы Г - 4 варианта, и есть 3 места по 3 буквы.
Перемножаем: 5*4*3*3*3=540 вариантов.
2) когда буквы Р и Г постоянны, буква Н используется, а остальные 3 буквы используются произвольно.
Получаем, что у буквы Р есть 5 вариантов постановки, у буквы Г - 4 варианта, у буквы Н - 3 варианта и есть 2 места по 3 буквы.
Перемножаем: 5*4*3*3*3=540 вариантов.
Чтобы получить ответ, складываем оба варианта, получаем 540+540=1080 кодов
Программы на языке Pascal.
Ввод элементов массива с клавиатуры:
program a;
const N=10;
var m: array [1..N] of integer;
i, max: integer;
begin
max:= -32768;
for i:= 1 to N
do begin
readln(m[i]);
if(m[i]>max)
then max:= m[i];
end;
writeln(max);
end.
Заполнение массива случайными числами:
program a;
const N=10;
var m: array [1..N] of integer;
i, max: integer;
begin
randomize;
max:= -32768;
for i:= 1 to N
do begin
m[i]:= random(-32768, 32767);
if(m[i]>max)
then max:= m[i];
end;
writeln(max);
end.
C,N:array[1..10] of integer;
A,i,j,m:integer;
Begin
WriteLn('Введите десять целых чисел');
j:=0;
m:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A mod 2 = 0 then
Begin
j:=j+1;
C[j]:=A;
End
else
Begin
m:=m+1;
N[m]:=A;
End
End;
Write('Массив чётных чисел: ');
For j:= 1 to j do
Write(C[j],' ');
WriteLn;
Write('Массив нечётных чисел: ');
For m:= 1 to m do
Write(N[m],' ');
End.