7.
N=2^i;
N=32
i=5;
512*256*5=655360/8=81920/1024=80кбайт
8.
N=16
i=4
512*128*4=262144/8=32768/1024=32кбайт
9.
N=8
i=3
256*128*3=98304/8=12288/1024=12кбайт
10.
N=256
i=8
128*128*8=131072/8=16384/1024=16кбайт
Var max,min,i,s:integer;
mas:array[1..25] of integer;
begin
randomize;
write('Введите диапазон: '); readln(max,min);
if(min>max) then begin
max:=max+min;
min:=max-min;
max:=max-min;
end;
for i:=1 to 25 do
mas[i] := min + random(max-min+1);
for i:=1 to 25 do begin
write(i,'-ый элемент: ',mas[i]);
if((mas[i] mod 5) = 2) then begin s:=s+1; writeln('+'); end
else writeln();
end;
write('Сумма элементов, которые при делении на 5 дают остаток 2: ',s);
end.
1111110010<span>- количество нулей - 3</span>
<h2>№2</h2>
Промежуточные значения n и s даны в приложении.
Ответ: 30.
<h2>№3</h2>
var n: integer;
begin
read(n);
if n mod 2=0 then n:=n div 4
else n:=n*5;
writeln(n);
end.
<h2>№4</h2>
var
x, y: integer;
begin
read(x);
if x > 5 then y := x * x - 1
else if x < -2 then y := 2 * x;
writeln(y);
end.
<h2>№5</h2>
var
i: integer;
pr: biginteger;
begin
pr := 1;
for i := 10 to 25 do
if i mod 2 = 1 then pr := pr * i;
writeln(pr);
end.
Берем наши 5 монет и делим их на 3 кучки - 2 монеты,2 монеты и 1 монета. Далее взвешиваем между собой 2 кучки по 2 монеты. Если эти кучки равны - то монета в третьей кучке, в которой находится одна монета, которая и есть золотая. Если же кучки не равны, то наша золотая монета находится в более тяжелой кучке,значит нам остается более тяжелую кучку взвесить по одной монете, которая будет тяжелее - золотая.
блок-схема данного решения в приложении