Const
m=5;
n=3;
var
i,j,k:integer;
a:array[1..m,1..n] of integer;
begin
Randomize;
Writeln('Исходный массив');
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(999)+1;
Write(a[i,j]:4);
if (a[i,j] mod 8=0) and (a[i,j] mod 10=4) then Inc(k);
end;
Writeln
end;
if k>0 then begin
Writeln('Искомые элементы');
for i:=1 to m do
for j:=1 to n do
if (a[i,j] mod 8=0) and (a[i,j] mod 4=10) then Write(a[i,j],' ')
end
else
Writeln('Нет элементов, кратных 8 и оканчивающихся на 4')
end.
Пример работы программы
Исходный массив
424 672 826
546 587 413
507 211 884
252 781 518
750 656 359
Искомые элементы
424
матрица заполняется случайно
программа на pascalabc
Var
max,min,mina,minb,maxa,maxb,a,b,c: integer;
mas: array[1..3,1..3] Of integer;
Begin
writeln('до :');
For a:=1 To 3 Do
For b:=1 To 3 Do
Begin
mas[a,b] := random(100);
If mas[a,b]>max Then
Begin
max := mas[a,b];
maxa := a;
maxb := b;
End;
If (min=0)Or(mas[a,b]<min) Then
Begin
min := mas[a,b];
mina := a;
minb := b;
End;
write(mas[a,b],' ');
End;
c := mas[maxa,maxb];
mas[maxa,maxb] := mas[mina,minb];
mas[mina,minb] := c;
writeln;
writeln('после :');
For a:=1 To 3 Do
For b:=1 To 3 Do
write(mas[a,b],' ');
По условию, буква А встречается в слове ровно 1 раз. Вася составляет 5-буквенные слова, следовательно буква А может стоять на одном из 5 мест.Таким образом, на все остальные буквы (Б, В и Г) приходится 4 свободных места.:
_ _ _ _ _
A _ _ _ _
_ A _ _ _
_ _ A _ _
_ _ _ A _
_ _ _ _ A
Число возможных 4-буквенных слов, в которых есть только 3 буквы Б, В, Г, равно 34=81.
Умножаем полученные 81 вариантов на 5 возможных вариантов с буквой А и получаем правильный ответ.
81×5=405
64=2^6 --> 6 бит для кодировки одного символа
128=2^7 --> 7 бит для кодировки одного символа
11*6=66 бит
11*7=77 бит
У жителей второй планеты сообщение из 11 символов несёт информацию на 11 бит больше, чем сообщение такой же длины жителей первой планеты
77-66=11 бит