Program drawFigure; uses graph; var gD,gR:integer; procedure drawHouse(x,y:word); const wallSide=70; windowSide=20; var houseRoof:array[1..4] of pointtype; begin setFillStyle(1,10); bar(x,y-wallSide,x+wallSide,y); rectangle(x,y-wallSide,x+wallSide,y); setFillStyle(1,1); bar(x+wallSide div 2-windowSide div 2,y-wallSide+wallSide div 2-windowSide div 2, x+wallSide div 2-windowSide div 2+windowSide,y-wallSide+wallSide div 2-windowSide div 2+windowSide); rectangle(x+wallSide div 2-windowSide div 2,y-wallSide+wallSide div 2-windowSide div 2, x+wallSide div 2-windowSide div 2+windowSide,y-wallSide+wallSide div 2-windowSide div 2+windowSide); setFillStyle(1,2); houseRoof[1].x:=x; houseRoof[1].y:=y-wallSide; houseRoof[2].x:=x+wallSide; houseRoof[2].y:=y-wallSide; houseRoof[3].x:=x+wallSide div 2; houseRoof[3].y:=y-wallSide-wallSide div 2; houseRoof[4].x:=x; houseRoof[4].y:=y-wallSide; fillPoly(4,houseRoof); end; procedure drawTree(x,y:word); const treeFH=90; treeFW=8; var ci:byte; branchFH,branchFW:byte; begin setFillStyle(1,6); bar(x,y-treeFH,x+treeFW,y); for ci:=1 to 6 do begin branchFH:=random(5)+1; branchFW:=random(8)+10; bar(x-branchFW,y-treeFH+ci*10,x,y-treeFH+ci*10+branchFH); bar(x+treeFW,y-treeFH+ci*10,x+treeFW+branchFW,y-treeFH+ci*10+branchFH); end; end; begin randomize; initgraph(gD,gR,''); drawHouse(100,280); drawHouse(230,270); drawHouse(430,290); drawHouse(330,180); drawTree(195,278); drawTree(325,275); drawTree(265,350); drawTree(360,290); drawTree(400,240); drawTree(580,285); drawTree(110,370); readln; closeGraph; <span>end.</span>
Известно, что с помощью N бит можно закодировать 2N<span> различных чисел. Поскольку 2</span>6<span> < 87 < 2</span>7<span> и для каждого спортсмена число бит одинаково, то для записи каждого из 87 номеров необходимо 7 бит памяти. Поскольку промежуточную отметку прошли 64 участника, то информационный объем сообщения составит 64⋅7 = 448 бит = 56 байт.</span>
Var a:array [1..20] of integer; i,p:integer; n:real; m:<span>longint;</span> begin n:=0; p:=0; m:=1; write ('Массив: '); for i:=1 to 20 do begin a[i]:=random(101)-50; write (a[i],' '); end; for i:=1 to 20 do begin n:=n+a[i]; end; n:=n/20; writeln; writeln; write ('Среднее арифметическое = ',n); for i:=1 to 19 do begin if a[20]<>a[i] then p:=p+1; end; writeln; write ('Кол-во чисел отличных от последнего в массиве = ',p); for i:=1 to 20 do begin if a[i]<0 then m:=m*a[i]; end; writeln; write ('Произведение отрицательных чисел массива = ',m); end.
Самые основы паскаля. Советую почитать учебник и разобраться, т.к. дальше будет только сложнее.
var hig, age: integer; begin write('Введите рост ученика: '); readln(hig); write('Введите возраст ученика: '); readln(age); if (hig<160) or (age<13) then writeln('Не может заниматься') else writeln('Может заниматься'); <span>end. </span>