Ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об этом... А так например импорт-экспорт есть во многих прогах (оффис например),... Вот так....
Находим значение информационной емкости одного символа. N=2^i, подставляя значение в формулу, получаем N=64, значит, i=6 бит-информационная емкость 1 символа, значит 5*6=30 бит.
Пусть
(x∉A) ≡ ¬А ; (x ∉ P) ≡ ¬P; (x ∈ Q) ≡ Q.
(просто заменяешь скобки на буквы, A и P знак ¬ потому что там " ∉ " )
¬А⇒¬PvQ
Теперь применим формулу ( A⇒B можно заменить на ¬АvB)
Аv¬PvQ
Теперь смотрим на отрезки
<span>P = [10, 25] и Q = [0, 12]
И у нас есть формула : </span>Аv¬PvQ
Смотрим.
¬P ( читается как НЕ P ) значит закрашиваем все что за пределами P = [10, 25] ( у меня зеленым.
Q закрашиваем все что в этом отрезке.
Нам нужен такой отрезок А что бы покрывал то пустое место.
Ответ: <span>А [12;40]</span>
Это реализовано с помощью цикла for:
Program p1;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
For i:=0 to 1 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
<span>End.
</span>Это реализовано с помощью цикла while:<span>
Program p2;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
While i<>2 do
Begin
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
i:=i+1;
End;
if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей');
End.
</span>Это реализовано с помощью цикла repeat:
Program p3;
Var a1,a2,k,i:integer;
Begin
Write('Введите число: ');
Readln(a1);
repeat
Begin
i:=i+1;
Write('Введите число: ');
Readln(a2);
if a2>a1 then
k:=k+1;
a1:=a2;
End;
until i=2;
if k=2 then
Writeln('Эта последовательность является возрастающей') else
Writeln('Эта последовательность не является возрастающей');
<span>End.</span>
