Понятно, что число должно быть ОТРИЦАТЕЛЬНЫМ, поскольку, если оно положительное, например равно 2 получаем
2, 2, 5. Но это НЕУБЫВАЮЩИЙ ряд.
Тогда пусть X=-10
Получаем:
-10, 10, 101
Теперь пусть Х = - 1/2.
Получаем
-1/2, 1/2, 5/4.
Очевидно в программе будет строчка:
Writeln(x, ' ', -x, ' ', 1+x*x);
1. Источник - светофор, приёмник - вы.
2. Обмен информацией. Поочередно то компьютер источник, вы - приёмник, то наоборот.
3. Телевизор - источник, члены семьи - приёмники.
4. Вы любуетесь цветами, растущими на клумбе. Цветы - источники, вы - приёмник.
2^I = 16
I = 4
Значит сообщение содержит 4 бита информации
<span><u>1</u>)function test:real; - <u>ВЕРНО</u>
<u>2</u>)function tan (angle:real):real; - <u>ВЕРНО</u>
3)function sign( a, b:integer); - НЕВЕРНО, не определен тип возвращаемого значения
4)function sign(write: integer): integer - НЕВЕРНО, в конце нет точки с запятой
Программа напечатает:
<u>12</u>
Объяснение:
</span>Процедура Exchange задумана, как обменивающая местами значения своих параметров. Но из-за отсутствия в заголовке var, она не вернет в вызвавшую программу новые значения, поэтому х и у останутся без изменения. Так они и будут выведены.