Ответ:
В 1296000 пикселей 1,29 мегапикселей
Объяснение:
Var a:array[1..10] of Integer ;
b,i,k,f:integer;
Begin
WriteLn('Исходный массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
end;
For k:=1 to 9 do
begin
For i:= 1 to 9 do
begin
if a[i]< a[i+1] then
begin
b:=a[i];
a[i] := a[i+1];
a[i+1]:=b;
end;
end;
end;
WriteLn;
WriteLn('Итоговый массив');
For i:= 1 to 10 do
Write(a[i]:3);
end.
Если проткнуть листок после 0 сгибаний (т.е. без сгибаний), то будет одна дырка. Если после 1 - будет две дырки.
...
Если после n-го сгибания и после первого протыкания имеется x дырок, то после (n + 1)-го сгибания и первого прокола имеется 2 * x дырок (т.к. листок сгибается пополам, то количество протыкаемых слоёв удваивается).
Значит, x = 2^n.
Т.е. 2 протыкания после n и m сгибания дадут 2^n + 2^m дырок.
Переведём 40 в двоичную систему: 40 = 101000. Т.е. нужно проткнуть после 3 и 5 сгибания.
1) 7 - изза начального присвоение m
2) 994. 4 соответствует условию, остальные числа лишь максимизируют число
3)
var
N, d, m: longint;
begin
readln(N);
{m := N mod 10; ошибочная строка}
m:=-1; {N mod 10 - может не удовлетворять условию, 0 - может и удовлетворять условию }
while N > 0 do
begin
d := N mod 10;
if d < 5 then
if d > m then m := d;
N := N div 10;
end;
{if m = 0 then ошибочная строка}
if m = -1 then {если в цикле m так не разу и не поменялась}
writeln('NO')
else writeln(m);
end.