сообщений
1)
var
x, y: real;
begin
write('x = ');
readln(x);
if x > 13 then write('y = ', (2 - x) / (sqr(x) + 3)) else write('y = ', 54 + 2 * x);
end.
2)
var
x, y: real;
begin
write('x = ');
readln(x);
if (x >= -6) and (x < 8) then write('y = ', sqrt(8 * x + 4) - 2) else write('y = ', (3 * x - 2) * sqr(x));
end.
3)
var
x, y: real;
begin
write('x = ');
readln(x);
if (x <= 3) or ((x >= 11) and (x < 28)) then write('y = ', abs(-5 * x + 12) + 2) else write('y = ', (sqrt(x + 3) - 9) * 9 * x);
end.
4)
var
x, y: real;
begin
write('число ');
read(x);
if ((x > -4) and (x < 8)) or ((x > 32) and (x < 76)) then write('принадлежит данному промежутку') else write('не принадлежит данному промежутку');
end.
5)
var
mas: array[0..3]of real;
a: integer;
begin
for a := 0 to 2 do
begin
read(mas[a]);
if mas[a] > mas[3] then mas[3] := mas[a];
end;
write(mas[3]);
end.
Это очень не так просто, как кажется на первый взгляд
Объяснение:
Далеко не всегда кодировка была 8 бит на знак.
До сих пор применяется и довольно широко кодировка 7 бит на знак.
Давно уже применяются кодировки 16 и, даже 32 бита на знак.
Но, допустим, мы используем именно ОДИН байт на знак, например ASCII
Хотя и он изначально был семибитным.
1) Дано : в каждой строке 64 знака. Ключевое слово " в строке ",
то есть нам необходимо разделять строки. Для этого в конце каждой строки нужно передать еще два знака - " EOL " и " CR " (конец строки и переход в начало следующей)
Итого в строке 66 знаков.
2) Дано на странице 64 строки. То есть мы обязаны переводить страницы. Значит 64 *66 = 4224 Знака. И еще знак подачи ( перехода ) следующей страницы
Итого на странице 4225 знаков
2) Дано : в книге 128 страниц. Значит знаков 128 * 4225 = 540800 знаков
Это в Кибибайтах 540800 / 1024 = 528.125 Kib или
Или в Килобайтах 540800 / 1000 = 540,800 Kb
