const
handsfree = false;
nmax = 10;
random_min = -50;
random_max = 50;
var
a: array[0..nmax] of real;
i, n: integer;
sum, x: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 0 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
for i := 0 to n do
readln(a[i]);
end;
writeln();
{подсчет суммы}
write('x = ');
readln(x);
sum := a[n];
for i := n - 1 downto 0 do
sum := sum * x + a[i];
writeln('S = ', sqrt(sum));
end.
⌐A & ⌐(⌐A ∨ ⌐B) = ⌐A & (⌐⌐A & ⌐⌐B) = ⌐A & (A & B) = (⌐A & A) & B = 0 & B = 0
⌐(⌐A ∨ ⌐B) = ⌐⌐A & ⌐⌐B (правило де Моргана для ИЛИ)
⌐⌐A = A (закон двойного отрицания)
⌐⌐B = B (закон двойного отрицания)
⌐A & (A & B) = (⌐A & A) & B (сочетательный закон для И)
(⌐A & A) = 0 (операция переменной с её инверсией для И)
0 & B = 0 (операция с константой для И)
отрицание (НЕ, ⌐, черта над буквой)
конъюнкция (И, &, ∧)
дизъюнкция (ИЛИ, ∨)
Объяснение:
write ('1,2,3,4,5');
end.
begin
write ('2,4,6,8,10,12,14,16,18,20');
end.
begin
write ('15,17,19,21,23,25,27,29,31,33,35');