Информатика 5 класс прикладные программы для выполнения на компьютере конкретных . 10 букв

Приложения

1)в сообщении было 2048 = 2^11 символовобъем сообщения 2Кбайт = 2*1024*8 = 2^14 бита        (= 16384 бита)место, отведенное на 1 символ:2^14 бита / 2^11 символов = 2^3 бита на символ = 8 бита на символ8 бита на символ позволяют закодировать 2^8 = 256разных символов поэтому мощность алфавита – 256 символов
2))v=1/512Мбайт=1/512*1024*1024*8бит=16384бит
i=16384/4096бит=4бит
N=2^4=16cимволов
ответ:16символов
3)N - мощность алфавитаI - информационный объем сообщенияi - информационный объем одного символа N=2^i Найдем i:1/16 кб = 2^13/2^4 бит = 2^9 бит i=2^9/(256*2)=2^9/2^9=1 бит N=2^i=2^1=2 символа. 
4)16=2 в степени 4, т.е. 
1 символ = 4 бита 
384*4=1536 бит = 1536/8 = 192 байт = 192/1024= 0,1875 Кб
5)2^i=N, N = 162^i=16i=4 бит50 * 4 = 200 бит200: 8 = 25 байт

A)
var a: string;
    i: integer;
begin
     readln(a);
     for i := 1 to length(a) do
         if (a[i] <> UpCase(a[i])) then
            write(a[i], ' ');
end.

b)
var a: string;
    i, p: integer;
    q: boolean;
begin
     readln(a);
     for p := 0 to 9 do
         for i := 1 to length(a) do
             if (a[i] = inttostr(p)) then
                    q := true;
     writeln(q);
end.

c)
var a: string;
    i, p, u: integer;
    o: array [0..5] of char;
begin
     readln(a);
     o[0] := '('; o[1] := ')'; o[2] := '{'; o[3] := '}'; o[4] := '['; o[5] := ']';
     for p := 0 to 5 do
         for i := 1 to length(a) do
             if (a[i] = o[p]) then
                    u := u + 1;
     writeln(u);
end.

d)
var a: string;
    i, p: integer;
    o: array [0..7] of char;
begin
     readln(a);
     o[0] := '('; o[1] := ')'; o[2] := '?'; o[3] := '!'; o[4] := '"'; o[5] := '.'; o[6] := ','; o[7] := ',';
     for i := 1 to length(a) do
         for p := 0 to 7 do
             if (a[i] = o[p]) then
                    writeln(a[i]);
end.

Ну вот:) О, мой мозг, как же тебе досталось! ~_~