Var x,y:integer; begin write('Введите x=');read(x); write('Введите y=');read(y); if x<0 then write('z=',3*sqr(x)-4*x*y) else write('z=',7*x-3/5*x*y); end.
1.В кодировке Unicode каждый символ кодируется 2 байтами. На экран влезает 25 • 80 = 2000 символов. Соответственно, объем текста равен 2000 • 2 = 4000 (байт) ≈ 3,9 (Кбайт) ответ: 4000 байт 2.Сообщение состоит из 6 • 40 • 20 = 14400 символов. Поскольку объем этого текста составляет 28800 байт, то на один символ отводилось 2 байта, т.е. 16-разрядный двоичный код. Текст записан в кодировке Unicode. ответ: 16 разрядов) 3.I = 5 Кбайт K = 4 • 32 • 40 N = ?N = 2i; I = K • i i = I/K, i = (5 • 210 • 23)/(22 • 25 • 23 • 5), i = 23 = 8 N = 28 = 256 ответ: 256 символов в алфавите)
x,y:integer;
begin
write('Введите x=');read(x);
write('Введите y=');read(y);
if x<0 then
write('z=',3*sqr(x)-4*x*y)
else
write('z=',7*x-3/5*x*y);
end.