Program procenti;
Var Summ:real; k:integer;
begin
writeln('введите процент');
Readln(k);
Summ:=387*(0.2*k);
Writeln('Summ=', summ)
end.
<em>Проверено на fpc 3.0.0 </em>
const
m=6; // строк
n=9; // столбцов
var
a:array[1..m,1..n] of integer;
i,j,k1,k2,s,k:integer;
begin
Writeln('Введите границы диапазона: '); Read(k1,k2);
Randomize;
s:=0; k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(199)-99; // [-99;99]
Write(a[i,j]:4);
if (a[i,j]>=k1) and (a[i,j]<=k2) then begin
Inc(k); s:=s+a[i,j]
end
end;
Writeln
end;
Writeln('Отобрано элементов: ',k,', их сумма равна ',s)
end.
<u>Пример</u>
Введите границы диапазона:
-20 55
-2 -52 -11 -12 70 -15 90 -51 75
-54 -92 32 54 -72 -24 -40 -37 -20
0 -14 -79 -1 -39 -34 39 47 34
-91 -98 -68 -16 -56 -55 97 66 59
-48 -67 -34 92 -77 12 -67 -23 -90
75 85 65 -98 -58 -53 -6 34 33
Отобрано элементов: 18, их сумма равна 188
Всего 64 фломастера, каждый из них можем достать, значит всего 64 события)
1). 64=2i
26=2i
i = 6 (бит) - приходится на 1 событие.
<span>^ Ответ: Сообщение о том, что из коробки достали красный фломастер содержит 6 бит информации</span>
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 бит