Просто сумма квадратов?
var
i, n: integer;
a, s: real;
begin
s := 0;
read(n);
for i := 1 to n do
begin
read(a);
s := s + a * a
end;
write(s)
<span>end.</span>
В расширенной аски 256 символов то есть 2 в восьмой степени
значит каждый символ кодируется 8 битами или одни байтом
в фразе 13 символов значит нужно 13 байт
1) ¬(¬A ^ B) ^ ¬C =( ¬(¬A)∨¬B)∧¬C = (A∨¬B)∧¬C
выражение эквивалентно выражению под цифрой 4)
<span>
2) Для того чтобы выражение было истинным надо чтобы истинными были каждое из выражений
</span><span>(Y < 5) и ((Y > 1) -> (Y > 5))
первое выражение истинно для всех указанных Y.
рассмотрим второе выражение: </span>((Y > 1) -> (Y > 5))
это выражение ложно только если (Y > 1) истинно, а (Y > 5) ложно
выражение (Y > 5) ложно для всех Y,
а выражение (Y > 1) истинно для Y = 2 , 3 , 4
Таким образом выражение ((Y > 1) -> (Y > 5)) истинно только для Y= 1
поэтому правильный ответ под номером 1)
Var y, x:integer;
begin
read(x);
y:=(abs(x-1))+(sqrt(x)/(sqr(x)*cos(x)))
write('y=',y);
end.
K = 60*50*40
N = 65536
N = 2^j
j = 16
I ( объем инф-ии) = 16*60*50*40 = 1920000 бит = 240000 байт =234,3 Кбайт
ответ: 234,3 Кбайт