8. Створіть обробник події Click для кнопки, виконання якого встано
вить червоний колір фону поля, відступ поля від верхньої межі вікна
150 пікселів, зменшить відступ поля від лівої межі вікна на 50 піксе.
лів, установить колір тексту червоний і виведе в поле текст «Ми ви
користовуємо властивості поля!».
9. Збережіть нову версію проекту.
О. Виконайте нову версію проекту.
1. Закрийте вікно виконання проекту.
2. Створіть новий проект для обчислення значення виразу a (4b - 3с).
3. Збережіть проект у папці з іменем Практична 10_2, створеній у ва
шій папці.
4. Виконайте проект.
5. Закрийте вікно виконання проекту.
6. Закрийте вікно середовища Lazarus.
6.2. НАЛАГОДЖЕННЯ ПРОЕКТУ​

1. 16 = 2^4, поэтому на кодирование 1 символа отводится 4 бита = 0,5 байта (1 байт = 8 бит).
0,5 байт/символ * 384 символа = 192 байта.

2. 3/8 Кбайт + 1024 байт = 0,375 Кбайт + 1 Кбайт = 1,375 Кбайт (1 Кбайт = 1024 байт)
Иначе: 3/8 Кбайт + 1024 байт = 3/8 * 1024 байт + 1024 байт = 384 байт + 1024 байт = 1408 байт.

3. Всего символов: 3 * 25 * 60
Объем в битах: 1125 * 8
Бит на символ: 1125 * 8 / (3 * 25 * 60) = 2
В алфавите 2^2 = 4 символа.

4. D5:E6 - прямоугольный диапазон, в углах которого стоят D5 и E6. В неговходят все указанные в задании ячейки.
СУММ(диапазон) считает сумму всех чисел в диапазоне. В данном случае получится 8+3+5+2=18.

var a:array[1..10,1..15]of integer;
i,j,n,x:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
readln(x);
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j]=x then inc(n);
writeln(n);
end.

 

var a:array[1..10,1..15]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j] mod 2=0 then inc(k);
writeln(k);
end.