Const n=20;
var a:array[1..n] of integer;
i,j,k,c:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then
begin
k:=k+1;
c:=a[i];
for j:=i-1 downto k do a[j+1]:=a[j];
a[k]:=c;
end;
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
5 25 24 -20 13 18 -2 21 -24 14 -2 -25 -18 13 23 11 22 -22 -21 -22
-20 -2 -24 -2 -25 -18 -22 -21 -22 5 25 24 13 18 21 14 13 23 11 22
Вопрос один
Какое число ты загадал?
Если информация от 16 до 32 то
32 - 16 + 1 = 17 разных значений
ln(17)/ln(2) при округлении даст 5
5 бит
По условию, буква А встречается в слове ровно 1 раз. Вася составляет 5-буквенные слова, следовательно буква А может стоять на одном из 5 мест.Таким образом, на все остальные буквы (Б, В и Г) приходится 4 свободных места.:
_ _ _ _ _
A _ _ _ _
_ A _ _ _
_ _ A _ _
_ _ _ A _
_ _ _ _ A
Число возможных 4-буквенных слов, в которых есть только 3 буквы Б, В, Г, равно 34=81.
Умножаем полученные 81 вариантов на 5 возможных вариантов с буквой А и получаем правильный ответ.
81×5=405
2d. Идентификатор не должен начинаться с цифры!