Var
i: integer;
s: real;
begin
i := 2;
while(i <= 100) do
begin
//writeln(i, '/', i + 1);
s := s + (i / (i + 1));
i := i + 2;
end;
write(s);
end.
vvvvvvvvvvvvvvvvvvvvvvv
Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так
var
(¬(M V L) /\ K) → ((¬K /\¬M) \/ N)
(¬M /\ ¬L /\ K) → ((¬K /\¬M) \/ N)
ложно если первая часть 1 а вторая 0
¬M /\ ¬L /\ K = 1 => m=0, l=0,k=1
(¬K /\¬M) \/ N = 0
подставляем
(0 /\1) \/ N = 0 => n=0
Ответ:
а где фото или задание???