1. в текстовом процессоре откройте файл цвет.rtf: воздействие цвета на человека оранжевый - вызывает лёгкое возбуждение, ускоряет кровообращение пищеварению. жёлтый - стимулирует умственную деятельность. зелёный - нежный, умиротворяющий, спокойный. голубой - снижает кровяное
давление, успокаивает. синий - обусловливает серьёзность, строгость в поведении. фиолетовый - возбуждает деятельность сердца и лёгких, увеличивает сопротивляемость организма простудным заболеваниям. 2. выполните форматирование текста согласно следующему описанию: для заголовка задайте размер
шрифта 16 пунктов, цвет шрифта красный; для названий цветов задайте соответствующий им цвет шрифта, начертание — полужирное, размер — 14 пунктов; для описаний цветов задайте начертание курсив и размер шрифта 12 пунктов.

№4

Цикл для i от 5 до 3. То есть 3 повтора(итерации) (для i = 5;4;3)

На каждой итерации x уменьшается на 3, а у умножается на 3.

То есть по цикла x уменьшится на 3  3 раза.

x = 33 - 3 - 3 - 3 = 24

у по цикла умножится на 3  3 раза

у = 2 * 3 * 3 * 3 = 54

Итого, в конце работы программы получаем x = 24, y = 54

№5

Цикл для i от 8 до 8. То есть всего 1 повтор.

x = 3 * 3 = 9 (значение х изменилось с 3 на 9)

y = 700 - 9 = 691

Итого, в конце работы программы получаем x = 9, y = 691

№6

Идем по порядку

x = 3

y = x * 3 = 3 * 3 = 9

Далее идет цикл для i от 13 до y, то есть от 13 до 9. Это 5 итераций (i =13;12;11;10;9)

В цикле за одну итерацию x увеличивается на 4, а y уменьшается на 1.

То есть через 5 итераций получаем:

x = x + 4 + 4 + 4 + 4 + 4 = 3 + 4 + 4 + 4 + 4 + 4 = 23

y = y - 1 - 1 - 1 - 1 - 1 = 9 - 1 - 1 - 1 - 1 - 1 = 4

Итого, в конце работы программы получаем x = 23, y = 4

Const n=20;
var a:array[1..n] of integer;
i,i1,i2,x:integer;
begin
Randomize;
a[1]:=random(10);
write(a[1],' ');
for i:=2 to n do
 begin
 a[i]:=a[i-1]+random(10);
 write(a[i],' ');
 end;
writeln;
write('x = '); readln(x);
i1:=1; i2:=n;
repeat
i:=(i1+i2) div 2;
if a[i]<x then i1:=(i1+i2) div 2+1;
if a[i]>x then i2:=(i1+i2) div 2-1;
until (a[i]=x)or(i1>i2);
if a[i]=x then 
 begin
 writeln('Искомый(ые) номер(а) элемента(ов):');
 while (i>0)and(a[i]=x) do i:=i-1;
 i:=i+1;
 while (i<=n)and(a[i]=x) do begin write(i,' '); i:=i+1; end;
 end
 else writeln('Элемент не найден');
writeln;
end.

Пример:
5 6 14 15 15 22 30 36 45 45 50 56 60 64 67 76 84 92 99 101 
x = 15
Искомый(ые) номер(а) элемента(ов):
4 5