Дания:) Написать в OnPaint
Canvas.FillRect(Rect(10, 10, 3 * 200 + 10, 2 * 200 + 10));
Canvas.Brush.Color := clWhite;
<span>Canvas.FillRect(Rect(140, 10, 190, 2 * 200 + 10));
</span>Canvas.FillRect(Rect(10, round(2 * 200 / 2) - 25, 3 * 200 + 10, round(2 * 200 / 2) + 25));
Начало
Вводим a=0
далее выполняется действие:
x=a*2=0*2=0
условие:
0<10 да, далее выполняется действие:
x=x-5=0-5=-5
вывод х=-5;
конец.
Также и с остальными:
начало
ввод а=2
х=2*2=4
4<10
х=4-5=-1
вывод х=-1;
Конец.
Начало
ввод а=4
х=4*2=8
8<10
х=8-5=3
вывод х=3
конец.
Начало
ввод а=6
х=6*2=12
12>10
х=12+6=18
вывод х=18
конец.
Начало
ввод а=8
х=8*2=16
16>10
х=16+6=22
вывод х=22
Конец.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadAllText('input.txt').ToIntegers;
a.Println
end.
<h2 /><h2>Во втором вложении файл input.txt</h2>
1024 б / 16 = 64 б 64 б / 4 = 64 / 4 = 16 б - сообщения на одной странице или 16 б * 8 = 128 бит
Алфавит 128 бит / 128 сим = 1 бит для символа.
бит может иметь 2 знач = 0 или 1. Алфавит два символа