Поскольку рисунок - это передатчик информации приемником которой является зрение человека, то нельзя передать с помощью него такие виды информации как:
1. Звуковая
2. Осязательная(формы)
Vara:integer;beginwriteln('введите a');readln(a);If (a>0) thena:=a+1;writeln(a);end.Если ты это имел ввиду
1. Для кодирования одного из 256 символов требуется log(2)256 = 8 бит (2^8=256). Информационный объем сообщения = 100*8 бит = 100*8 / 8 байт = 100 байт.
2. 1/512 Мбайт = 1024*1/512 Кбайт = 2 Кбайта = 2*1024 байт = 2*1024*8 бит.
Объем одного символа = 2*1024*8 / 2048 = 8 бит
Мощность алфавита = 2^8 = 256 символов
3. Для записи одного из 64 символов требуется log(2)64 = 6 бит (2^6=64)
Количество символов в тексте = 7*16*56
Объем информации = 7*16*56*6 бит = 7*16*56*6 / 8 байт = 7*2*56*6 байт = 4704 байт = 4704/1024 Кбайт ≈ 4,6 Кбайт
4. Для записи одного из 120 номеров требуется log(2)120 ≈ 7 бит (2^7=128). Информационный объем сообщения о результатах 64 лыжников = 64*7 бит = 64*7/8 байт = 56 байт
Var i,j,n: integer;
<span> a: array[,] of real;
</span><span>begin
</span><span> write('n = '); readln(n);
</span><span> setlength(a,n+1,n+1);
</span><span> randomize;
</span><span> writeln('исходная матрица:');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> for j:=1 to n do
</span><span> begin
</span><span> a[i,j]:=random(-20,20);
</span><span> write(a[i,j]:4);
</span><span> end;
</span><span> writeln;
</span><span> end;
</span><span>//транспонирование матрицы
</span><span> for i:=1 to n-1 do
</span><span> for j:=i+1 to n do swap(a[i,j],a[j,i]);
</span><span>//вывод на экран
</span><span> writeln('транспонированная матрица:');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> for j:=1 to n do write(a[i,j]:4);
</span><span> writeln;
</span><span> end;
</span><span>end.
</span><span>
</span>n = 4
<span>исходная матрица:
</span><span> -5 16 -10 5
</span><span> -4 -20 6 14
</span><span> -2 10 -4 -7
</span><span> -16 1 -9 13
</span><span>транспонированная матрица:
</span><span> -5 -4 -2 -16
</span><span> 16 -20 10 1
</span><span> -10 6 -4 -9
</span><span> 5 14 -7 13
</span>
Program n1;
Uses CRT;
Var s: string; a: char; i,k: integer;
begin
Writeln('Vvedite stroku');
readln(s);
Writeln('Vvedite simvol');
readln(a);
For i:=1 to length(s) do
if s[i]=a then k:=k+1;
Writeln('Simvol ',a,' vstrechaetsa v stroke ',k,' raz');
readln
<span>end.</span>