1250/10=125 Кбайт в секунду
2^3= 8 подъездов (один вариант из 8)
64 символов в алфавите следовательно 1 символ весит 6 бит, 100*6=600 битов/8= 75 байт
//PascalABC.Net 3.2
{1}
begin
var sum:=0;
for var i:=1 to readinteger('Введите кол-во чисел: ') do sum+=readinteger;
print ('Сумма:', sum);
end.
{2}
function f(n: integer):=1/n;
begin
var sum:=0.0;
for var i:=1 to readinteger ('Введите n: ') do sum+=f(i);
write ('S = ', sum);
end.
{3}
begin
var count:=1;
for var i:=1 to readinteger('Введите кол-во часов: ') div 3 do count*=2;
write ('Кол-во амеб: ', count);
end.
{4}
begin
var sum:=0.0;
var x:=readreal ('Введите x: ');
for var i:=1 to readinteger('Введите N: ') do sum+=sin(i*x);
write (sum);
end.
{5}
function pow(a, n: integer):biginteger;
begin
var sum:=1;
for var i:=1 to n do sum*=a;
result:=sum;
end;
begin
write (pow(readinteger, readinteger));
end.
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 бит
<h3>// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal(8);
a.Take(4).Aggregate(1.0, (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>3.12 -52.52 16 132.52 0 -6 12.707 0.0018</h3><h3>-347440.723968 </h3>