Если ты забыл ключ то 2 варианта:
1. Ты все удаляешь с него через рекавети
2.Через fastboot ставим кастомное рекавети (twrp cwm), идём по пути /data/system/ и удаляем эти файлики:gesture.key,locksettings.db,locksettings.db-wal,locksettings.db-shm
Sub DQXTER()
Do
k = CInt(InputBox("Введите возраст от 1 до 99"))
Loop Until k >= 1 And k <= 99
Select Case k
Case 11 To 14
MsgBox "Мне " + Str(k) + " лет"
Case Else
Select Case k Mod 10
Case 1
MsgBox "Мне " + Str(k) + " год"
Case 2 To 4
MsgBox "Мне " + Str(k) + " года"
Case Else
MsgBox "Мне " + Str(k) + " лет"
End Select
End Select
End Sub
2.Windows-1251: 1 символ = 8 бит = 1 байт
Unicode: 1 символ = 16 бит = 2 байт
Размер двоичного кода на Windows-1251 - 60 байт
С.л. 60 байт умноижть на 2 байт = 120 байт - размер в Unicode
3. 8 бит = 1 байт
1 символ юникод = 16 бит = 2 байт
25 символов юникод = 25 умножить на 2 байт = 50 байт
7950 байт делим на 3 (страницы), получаем 2650 байт - размер 1 страницы.
С.л. 2650 байт разделить на 50 байт, получаем 53 строки
4.Фраза в юникоде:
\u041b\u044e\u0431\u0438\u0442\u044c \u0423\u043a\u0440\u0430\u0457\u043d\u0443, \u044f\u043a \u0441\u043e\u043d\u0446\u0435, \u043b\u044e\u0431\u0438\u0442\u044c!
5. 8 бит = 1 байт
1 символ = 1 байт
1000 байт = 1 кбайт
1536 символов = 1536 байт = 1.536 кбайт
6. в 1 мбайте = 1000 кбайт
Ответ: 300 килобайт
7.
2 задание:
Windows-1251 - 60 байт = 128 бит
Unicode - 120 байт = 960 бит
3 задание: Windows-1251 - 7950 байт - 3 страницы = 63600 бит
Unicode - 15900 байт = 127200 бит
5 задание: Windows-1251 - 1536 байт = 12288 бит
Unicode - 3072 байт = 24576 бит
6 задание: Windows-1251 - 300000 байт = 2400000 бит
Unicode - 600000 байт = 4800000 бит
1)var
n:Integer;
a:array [1..10] of Integer;
begin
Read(n);
a[1]:=n mod 10;
n:=n div 10;
a[2]:=n mod 10;
Write((a[1]+a[2])/2);
end.
2) var
n:Integer;
a:array [1..10] of Integer;
begin
Read(n);
a[1]:=n mod 10;
n:=n div 10;
a[2]:=n mod 10;
Write(a[2]-a[1]);
end.
3) var
n,m:Integer;
begin
Read(n);
m:=n div 1000;
Write(m,'кг',' ',n-m*1000,'г' );
end.
4)var
n,m:Integer;
begin
Read(n);
m:=n div 10000;
Write(m,'километров квадратных');
end.