Var
y,x:real;
i:integer;
Begin
For i := 1 to 10 do Begin
x:=i;
y:=(3*sqr(x)-sqrt(x+1))/(2-x);
writeln('X',i,' = ',x,', Y',i,' = ',y);
End;
<span>End.</span>
Сначала немного теории.
<span>--> - импликация,
следование
</span><span>Таблица истинности импликации</span>
<span>
x1 x2 r
0 0
1
0 1
1
1 0
0
1 1
1
Общее правило: если x1<=x2, тогда правда, в остальных случаях ложь.
^ - Конъюнкция, логическое И
Таблица истинности конъюнкции
x1 x2 r
0 0
0
0 1 0
1 0
0
1 1
1
Общее правило: если x1 или x2 = 0, тогда ложь. x1=x2=1, только тогда правда.
(первая буква имени согласная ---> вторая буква имени согласная)^ четвертая
буква имени согласная </span><span>
<span>1) Лариса </span>
<span>2) Сергей </span>
<span>3)
Геннадий </span>
<span>4)Елена
Теперь по вариантам:
1) Лариса
Получается (1--></span></span><span>0)^0=0^0=0,
не подходит
</span><span>2) Сергей
(1--></span><span>0)^1=0^1=0, не
подходит
3)</span><span> Геннадий
(1--></span><span>0)^1=0^1=0, не подходит
4) Елена</span>
(0--><span>1)^1=1^1=1, подходит
Ответ: 4) Елена</span>
Уменьшится в 2 раза.
в юникоде сообщение составляет 40 байт, в кои-8 - 20 байт.
значит и уменьшится на 20 байт
6 вес (информац.емкость) 1символа
4500*8/(25*60*6)=4 страницы
5 Кбайтов = 5*2^13 битов
2560=5*512 =5*2^9 символов
5*2^13 : (5*2^11) = 2^2 =4 бита для одного символа
2^4 =16 символов в данном алфавите