1) 2^n=128
n=7 бит
2048*7=14336 бит.
2) 2*80*32=5120 символов.
n=8 бит.
5120*8=<span>40960 бит.
8 Мбайт = 8 * 1024 Кбайт = 8 * 1024 * 1024 байт = 8 * 1024 * 1024 * 8 бит = 67 108 864 бит
</span>
<span> \0, \a, \b, \t, \n, \v, \f, \r </span>
<span>ESC/P (Epson Standard Code for Printers) — это язык команд, разработанный Epson, для управления принтерами. Он используется преимущественно в матричных и некоторых струйных принтерах. ESC/P является фактическим стандартом для матричных принтеров и используется другими производителями, иногда в несколько расширенном виде.</span>
ESC-символы
Специальные ASCII-символы, вроде возврата каретки или табуляции. Их синтаксис эквивалентен используемому в языке C — с применением символа обратной косой («\»).
<span>Всего нужно сыграть 5*6=30(матчей)
Уже сыграно 18 матчей
30-18=12(матчей) - осталось.
Ответ: сыграно -18; осталось -12</span>
<em>1. Современное решение</em>
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
Writeln(n,'! = ',2.To(n).Aggregate(BigInteger(1),(i,j)->i*j))
end.
<u>Примеры</u>
n= 20
20! = 2432902008176640000
n= 43
43! = 60415263063373835637355132068513997507264512000000000
<em>2. "Школьный древний вариант"</em>
<em>// Free Pascal 3.0.0</em>
var
i,n:longint;
P:int64;
begin
Write('n= '); Read(n);
if n>20 then
Writeln('Слишком большое n, допустимо 1,2, ... 20')
else begin
P:=1;
for i:=2 to n do P:=P*i;
Writeln(n,'! = ',P);
end
end.
<u>Примеры</u>
n= 20
20! = 2432902008176640000
n= 43
Слишком большое n, допустимо 1,2, ... 20
Если не делать проверки n, было бы
n= 43
43! = -7904866829883932672
function Hanoi(n: integer): uint64;
begin
if n = 1 then
begin
Result:=1;
exit();
end
else
begin
Result:=2 * Hanoi(n-1) + 1;
end;
end;
begin
writeln(hanoi(64));
end.