===== PascalABC.NET =====
begin
var a := ArrRandom(50, -99, 99);
a.Println;
var b := ReadArrReal('Ведите 10 чисел:', 10);
b.Println;
end.
1) Пронумеруем мешки от 1 до 10. Вытащим из первого 1 монету, из второго 2, из третьего 3 и так
далее. Затем возьмем всю эту кучу монет и положим на весы. Если бы они все были настоящие, то
общий вес составил бы 275 грамм (т.к. мы вытащили в общей сложности 55 монет). Но в одном из
мешков были фальшивые. Если это был первый мешок, то вес будет на 1 грамм меньше (т.к. мы взяли
<span>оттуда 1 монету). Если фальшивые были во втором, то на 2 грамма меньше. И так далее.
2)</span>По разверткам (A), (B), (C) видно, что грани с цифрами 1 и 2 являются противоположными, а это недопустимо по условию задачи.<span>По развертке (D) видно, что грани с цифрами 2 и 3 - противополжны, то есть этот вариант тоже не подходит. Вариант (E) - подходит, так как все противоположные грани помечены одинаковыми цифрами. <span>Верен ответ - (Е). </span>
3) во вложениях)</span>
Если имеется в виду, что само сообщение изменилось после перекодировки. То есть если каждые два байта (символа в Unicode) заменились на один байт (символ КОИ-8), то сообщение уменьшится вдвое. То есть тогда длина сообщения в битах в Unicode будет 600+600 =
= 1200 бит, количество символов 1200/16 = 3*4*4*25/(4*4) = 3*25 = 75 символов.
Const n=10;
var
a:array[1..n,1..n] of integer;
i,j:integer; p1,p2:real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
p1:=1; p2:=1;
for i:=1 to n do
begin
p1:=p1*a[i,i];
p2:=p2*a[i,n-i+1]
end;
writeln('p1 = ',p1,' p2 = ',p2);
end.
Пример (для n=5):
Исходный массив:
1 10 14 0 5
12 13 13 5 0
7 7 8 7 14
5 11 3 17 14
12 1 19 17 10
p1 = 17680 p2 = 26400
Вид списка-Раскрывающийся