Информационный вес одного символа 8 бит = 1 байт.
Информационный объем текста = 9 Кбайт = 9216 байт.
9216 байт/1 байт = 9216 символов в тексте.
Вычислим, сколько символов на 1 странице: 9216/6 = 1536 символов на странице.
Вычислим, сколько строк на странице: 1536/48 = 32 строки на странице
Var a,a1,a2,a3: integer;
begin
write ('Введите трехзначное число: '); read (a);
a1:=a div 100 mod 10;
a2:=a mod 100 div 10;
a3:=a mod 10;
writeln ('Полученное число: ',a3,a1,a2);
end.
function myFunction(x: real):real;
begin
if (x>=-10) and (x<2) then
myFunction:=sqr(x)+4*x-7 else
if ((x<-10) and (x<>0)) or (x>=2) then
myFunction:=1/(sqr(x)+4*x-7);
end;
var x,y: real;
begin
write('Введите x: ');
readln(x);
y:=myFunction(x);
writeln('y = ',y);
end.
В одном килобайте 1024 байтов- 1/2 килобайта-512 байтов, в 1 байте 8 битов. 512*8=4096 бит