С каждым годом компьюторы становятся все более совершенны: появляются новые виндуусы, новые программы фотошопа и защиты от вирусов, новые компьюторные супер-экраны, ксерокс, принтер, скайп и тд
Для считывания текстового файла с диска необходимо указать: (Б) Имя файла
Var
i: integer;
ar: array[1..8]of integer;
begin
for i := 1 to 8 do read(ar[i]);
for i := 1 to 8 do
if(i mod 2 = 0) then write(ar[i], ' ');
end.
Жизь без интернета - для нас не жизнь. Без него мы чувствуем себя ограниченными от общества. Мы не находим нужный материал.Не можем заказать что то для себя и своей семьи. Вывод: мы можем пользоваться интернетом , но не долгое время!
<span />
![(x < 5) \wedge \neg{((x \leq 2)\vee(x>9))} = \\ (x < 5) \wedge \neg(x \leq 2)\wedge\neg(x>9) = \\ (x < 5) \wedge (x > 2)\wedge (x \leq 9)](https://tex.z-dn.net/?f=%28x+%3C+5%29+%5Cwedge+%5Cneg%7B%28%28x+%5Cleq+2%29%5Cvee%28x%3E9%29%29%7D+%3D+%5C%5C%0A%28x+%3C+5%29+%5Cwedge+%5Cneg%28x+%5Cleq+2%29%5Cwedge%5Cneg%28x%3E9%29+%3D+%5C%5C%0A%28x+%3C+5%29+%5Cwedge+%28x+%3E+2%29%5Cwedge+%28x+%5Cleq+9%29+)
т.е. числа из интервала (2, 5), если целые то это 3 и 4