4 бит = 4/8 байт = 0,5 байт
1,5 Кб = 1,5*1024 = 1536 байт
Uses crt;
var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then
writeln('I')
else if (x<0) and (y>0) then
writeln('II')
else if (x<0) and (y<0) then
writeln('III')
else
writeln('IV');
<span>end.</span>
const
n = 30;
var
a: array [1..n] of integer;
i, mini: integer;
begin
for i := 1 to n do
begin
a[i] := random(30);
write(a[i], ' ');
end;
writeln;
mini := 1;
for i := 1 to n do
if a[i] < a[mini] then
mini := i;
writeln('A[', mini, ']=', a[mini]);
end.
1 картинка 20 упражнение . Я включил компьютер и набрал на клавиатуре сочинение про свою семью . Затем я переписал с фотоаппарата последние фотографии, добавил их к тексту и вывел сочинение на монитор. После этого я прибавил громкость звука колонок и стал играть в любимую игру , быстро двигая мышкой . Получив рекордный результат , я ввёл с клавиатуры своё имя и распечатал на принтере список рекордсменов .
Объяснение:
в 128 символьном алфавите 1 символ равен 7 битам
1120/6= 160