с заданием Дано масив розміру N. Поміняти місцями його мінімальний і максимальний елементи.

1)

program pr;
uses crt;
Var y,x:real;

Begin
 Writeln('vvedite x');
 readln(x);
 y:=(4*x)/(x-1);
 Writeln('y=',y:10:3);
  readln;
end.

 

 

2)

program pr;

Var n,i,a:integer;

Begin
Writeln('введите кол-во цыфр');
readln(n);

for i:=1 to n do Begin
readln(a);
if (a>9) and (a<1000) and (a mod 10=4) then Writeln(a);
end;

end.

 

 

2) использование массива

 

program pr;
uses crt;
Var n,i:integer;
    a:array[1..100] of integer;
Begin
Writeln('Введите кол-во цифр');
readln(n);

Writeln('Введите цифры');
for i:=1 to n do read(a[i]);
Writeln;
for i:=1 to n do
if (a[i]>9) and (a[i]<1000) and (a[i] mod 10=4) then Write(a[i],';');

end.

 

1) Наименьшая единица измерения информации — бит.

2) сколько битов содержится в одном байте? 8

3) Сколько байтов в слове бит? В кодировке Windows 1 символ кодируется 1 байтом. Тогда слово из трёх букв (бит) кодируется тремя байтами.

4) Сколько битов в слове байт? Аналогично, в слове "байт" 4 символа, оно кодируется 4 байтами, что тоже самое, что и 4 * 8 = 32 бита.

5) 512 битов — это 64 байта. Это не 1/2 килобайта, так как 1/2 килобайта — 512 байт, а не бит.

6) 1 килобайт — это 1024 байт

7) 81 920 байт — это 81 920 / 1024 = 80 килобайт
81 920 бит — это 81 920 / 8 = 10 240 байт = 10 килобайт