Uses crt;
Var a:array [1..7] of integer;
i,s:integer;
begin
for i:=1 to 7 do
readln (a[i]);
clrscr;
for i:=1 to 7 do begin
write (a[i]:4);
if a[i]<0 then s:=s+a[i];
end;
writeln;
writeln (s);
end.
В решении & и, || или, ~ не, -> импликация.
1. Похоже на правду.
2.
1) ну да.
2) Нам нужно то, что в треугольнике и не в прямоугольнике. <em>C & ~A.</em>
3) Опять тоже самое. <em>C& ~A</em>
3.
1) Распишем импликацию: A -> B = ~A || B
(~(A || ~B) || B) & (~A || B) = ((~A & B) || B) & (~A || B) = (~A & B) & (~A & B) = ~A & B
2)
~(A & B) -> (~A & B) = (A & B) || (~A & B) = B
(A -> B) & B || ~B = (~A || B) & B || B = B || B = B
Итого ответ A & B
3)
~(A & B) -> (~A & B) = (A & B) || (~A & B) = 0
(A -> B) & 0 = 0
16МБ=128000000бит
4мин=240сек
128000000:240примерно 533333бит/с