1.В кодировке Unicode каждый символ кодируется 2 байтами. На экран влезает 25 • 80 = 2000 символов. Соответственно, объем текста равен 2000 • 2 = 4000 (байт) ≈ 3,9 (Кбайт)
<span>Ответ: 4000 байт
2.</span>Сообщение состоит из 6 • 40 • 20 = 14400 символов. Поскольку объем этого текста составляет 28800 байт, то на один символ отводилось 2 байта, т.е. 16-разрядный двоичный код. Текст записан в кодировке Unicode.
<span>Ответ: 16 разрядов)
3.</span>I = 5 Кбайт
K = 4 • 32 • 40
N = ?<span>N = 2i; I = K • i</span>
<span>i = I/K, i = (5 • 210 • 23)/(22 • 25 • 23 • 5), i = 23 = 8</span>
<span>N = 28 = 256</span>
<span>Ответ: 256 символов в алфавите)</span>
CLS
a:
INPUT a
IF a<=0 THEN GOTO a
b:
INPUT b
IF b<=0 THEN GOTO b
c:
INPUT c
IF c<=0 THEN GOTO c
IF a>=b+c OR b>=a+c OR c>=a+b THEN PRINT 0: END
IF a=b AND b=c AND c=a THEN PRINT "треугольник равноcторонний" END
IF a=b OR b=c OR c=a THEN PRINT "треугольник равнобедренный": ELSE PRIINT "другой"
END
220бит=27,5байт=0,0268554кбайт
<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x: int64;
Readln(x);
Format('{0:#0 000 00 0}', x).Println
end.