Информационный объем одного из 12 288 символов, из которых составлено сообщение объемом 3 кб, равен а 0,25 бит б 2 байт в 0,25 байт г 2 бит

3кб = 3*1024 = 3072 байта.

12288/3072 = 4 байта на символ

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.

для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.