360000/150*40=<span>60 символов
Формула: I(объем)=i(мощность)*k(Обозначим так страницы)*n(обозначим там кол-во строк на 1 стр)*a(Обозначим так кол-во символов в сроке)
Т.к. у тебя не указан алфавит, будем считать его мощность за 1 байт.
Ответ:60</span>
Def implementetion(a,b)
a=to_bool(a)
b=to_bool(b)
return (not a or b)
end
def to_bool(s)
if s==true or s==false
return s
end
return s.to_i==0 ? false : true
end
k=0
for bin in 0.."111111".to_i(2)
s=("000000"+bin.to_s(2))[-6..-1]
r=implementetion(implementetion(implementetion(implementetion(implementetion(s[0],s[1]),s[2]),s[3]),s[4]),s[5])
if r then
k+=1
p [s]
end
end
p k
p 1+ 2+ 2**3+2**5
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var v:=MatrRandom(7,7,-15,15);
v.Println(4); Writeln(4*v.ColCount*'-');
var pr3:=v.Row(2).Aggregate(1,(x,y)->x*y);
Writeln('Произведение элементов 3-й строки равно ',pr3);
Writeln('Количество элементов, больших этого произведения, равно ',
v.ElementsByRow.Where(t->t>pr3).Count);
Writeln('Максимум в 3-м столбце равен ',v.Col(2).Max)
end.
<u>Пример</u>
*** Исходный массив ***
-4 -12 -15 -2 13 3 -15
-7 -1 -15 2 -2 4 -6
14 5 5 15 -4 3 0
13 15 9 14 11 -9 11
1 14 14 1 -4 -1 -7
15 -10 -13 -3 -8 -12 11
0 -13 -8 4 6 1 -11
----------------------------
Произведение элементов 3-й строки равно 0
Количество элементов, больших этого произведения, равно 24
Максимум в 3-м столбце равен 14
Можешь не благодарить
var
a,n:integer;
begin
readln(a);
while a<>0 do
begin
if (a mod 5=0)or (a mod 7=0)then inc(n);
readln(a);
end;
writeln(n);
end.
