Var
a:array[1..1000] of extended;
i,n:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
for i:=1 to n do writeln(a[i]:0:3);
end.
<span>
</span>
Сначала
2х2 равно 4, следовательно, А истинно. Обозначим истинное, как 1.
2х2 не равно 5, следовательно, В ложно. Обозначим ложное, как 0.
Тогда:
not(A and B) = not(1 and 0) = not 0 = 1, т.е. высказывание истинно.
A or not B = 1 or not 0 = 1 or 1 = 1, т.е. высказывание истинно.
Program E04;
uses crt;
var
n,i,k,f: integer;
X: array[1..50] of real;
Max,S: real;
begin
clrscr;
writeln('Введите размерность: ');
readln(n);
writeln('Введите массив: ');
for i:=1 to n do
begin
write('X[',i:2,'] ==> ');
readln(X[i])
end;
writeln('Исходный массив: ');
for i:=1 to n do
write(X[i],' ');
writeln;
Max:=abs(X[1]);
for i:=1 to n do
if Max <= abs(X[i]) then
Max:=abs(X[i]);
writeln('Максимальный элемент по модулю: ',Max);
i:=1;
while (i <= n) and (X[i] <= 0) do
i:=i+1;
if i > n then
writeln ('folse')
else
begin
k:=i;
i:=i+1;
while (i <= n) and (X[i] <= 0) do
i:=i+1;
if i > n then
writeln ('folse')
else
begin
f:=i;
for i := k + 1 to f - 1 do
S:=S+X[i];
writeln('Сумма: ',S:5:2);
end;
end;
end.
как правило бесплатное програмное обеспеченье бывает либо урезанным либо с
пробным периудом использования
Всего возможно 2^4=16 вариантов последовательностей четырех символов из двух знаков, включая четыре + или четыре -. Если нужно присутствие непременно обоих знаков в последовательности, то соответственно 16-2=14 вариантов. Непонятно, что значит "эти три последовательности"... Если нужны любые 3 из них, то, например: +++-, ++-+, ++-- и т.д.