Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>
Берем для примера первое логическое уравнение:
(x₁ ∨ y₁) ∧ ((¬x₁ ∨ ¬y₁) → (¬x₂ ∨ ¬y₂)) = 1
Для данного уравнения есть десять вариантов значений. Эти значения повторяются пять раз, в итоге получаем 50. Прибавляем еще 3 (варианты значений последнего уравнения).
Ответ: 53
Скорость передачи
2500 / 40
время передачи нового файла
2750 / (2500/40) = 1,1*40 = 44 сек
Ответ 44 сек