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.
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 байт