Log(14)/log(2) = 3,8073549220576 ~= 4 бит на один номер
Обьем сообщения = 4 * 10 = 40 бит = 5 байт
<span>var
i, k: real;
num:array[1..100] of integer;
begin
for: i := 1 to 99 do
num[i] := i;
k := 0;
i := 1;
while k < 7 do
begin
if easy(num[i])
then
k := k + 1;
i := i + 2;
end;
write(num[i-2]);
end.
Немного разобрал бред, но программа бессмысленная и проверка(if </span>easy(num[i])) мне не понятна, что это за процедура easy?
Что за массив без его описания, автор разберись с кодом, поучи синтаксис Паскаля.
Это же так просто! Удачи, ответ во вложении. Только там в конце опечатка у меня...
Ответ:
Понятие плагиата не имеет вполне определённого содержания, и в частных случаях не всегда возможно однозначно отделить его от сопредельных понятий: подражания, заимствования, соавторства и других подобных случаев сходства произведений. Во всяком случае, совпадение отдельных идей обычно не плагиат, поскольку любые новые произведения в чём-то основаны на идеях, не принадлежащих автору
Объяснение:НАПРИМЕР МОЖНО С ПЛАгиатить ВИДЕО МУЗЫКУ ЧТО УГОДНО ЭТО СКОПИРОВАТЬ ИДЕЮ
Для случайных чисел:
var
a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
a[i] := random(100);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.
Для ручного заполнения:
var
a: array[1..5] of integer;
i: integer;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
write(a[i], ' ');
writeln;
for i:=1 to 5 do
a[i] := a[i] * i;
for i:=1 to 5 do
write(a[i], ' ');
end.