200 символов в минуту * 5 минут = 1000 символов, которые занимают 375 байт, или 375*8=3000 бит. Значит, каждый символ занимает 3000\1000=3 бита, а размер алфавита - 2^3=8 символов.
Uses GraphABC;procedure P1(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x-15,y+100);line(x,y+70,x+15,y+100);end;procedure P2(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x,y+100);end;var x,y,i:integer;beginx:=40;y:=100;i:=1;repeat LockDrawing; ClearWindow(clgreen); setpenwidth(3); if odd(i) then P1(x,y) else P2(x,y); setpenwidth(10); line(0,y+100,windowwidth,y+100); Redraw; Sleep(500); x:=x+5; i:=i+1;until x>=windowwidth-20;<span>end.</span>
трех зайцев по углам, двоих вдоль стен