Здраствуйте,напишите в паскаль! !
вариант 4
между всеми словами текста устранить все знаки препинания и оставить по одному пробелу. вывести на печать слова, длина которых равны средней длине слова.

Program velobike;

Uses crt,graph;

Var gr:integer;

gm:integer;

x,y:integer;

begin

gr:=detect;

initgraph(gr,gm,'..\bgi');

x:=600;

y:=250;

repeat

for x:=0 to 600 do

begin

cleardevice;

setbkcolor(8);

setcolor(2);

setlinestyle(1,0,1);

rectangle(1,3,639,475);

setfillstyle(1,6);

bar(2,280,638,475);

setcolor(6);

setfillstyle(1,2);

circle(x-150,y,27);

floodfill(x-140,y-10,6);

setcolor(yellow);

circle(x-150,y,3);

setcolor(6);

setfillstyle(1,2);

circle(x-0,y,27);

floodfill(x-0,y-10,6);

setcolor(yellow);

circle(x-0,y,3);

setcolor(yellow);

circle(x-70,y,10);

circle(x-70,y,2);

setcolor(yellow);

arc(x-150,y,355,190,30);

arc(x-0,y,445,200,30);

setcolor(2);

setlinestyle(0,0,2);

line(0,280,639,280);

setcolor(white);

setlinestyle(0,2,3);

moveto(x-110,y-50);

lineto(x-15,y-50);

moveto(x-150,y);

lineto(x-70,y);

lineto(x-10,y-35);

moveto(x-70,y);

lineto(x-110,y-50);

moveto(x-150,y);

lineto(x-110,y-50);

moveto(x-150,y);

lineto(x-170,y-35);

lineto(x-123,y-35);

moveto(x-0,y);

lineto(x-20,y-73);

lineto(x-40,y-60);

moveto(x-20,y-73);

lineto(x-12,y-90);

moveto(x-150,y);

lineto(x-180,y-10);

moveto(x-0,y);

lineto(x-30,y);

setcolor(6);

setlinestyle(0,0,1);

moveto(x-70,y);

lineto(x-55,y-20);

setcolor(red);

lineto(x-45,y-20);

setcolor(8);

moveto(x-70,y);

lineto(x-75,y+20);

setcolor(6);

lineto(x-85,y+20);

setcolor(6);

moveto(x-110,y-50);

lineto(x-115,y-63);

setcolor(red);

moveto(x-40,y-60);

lineto(x-50,y-60);

moveto(x-12,y-90);

lineto(x-22,y-90);

setcolor(red);

setlinestyle(0,0,3);

moveto(x-123,y-63);

lineto(x-103,y-63);

delay(10000);

end;

settextstyle(0,0,3);

cleardevice;

setcolor(red);

outtextxy(30,240,'XoTuTe IIocMoTpeTb eLLLe?');

outtextxy(100,280,'    Ha}|{MuTe Enter      ');

readln;

until keypressed;

readln;

closegraph;

end.

1. Восьмеричное число записываем двоичными триадами (с конца по 3 разряда), заменяя каждую 8-ю цифру двоичной триадой, потом записываем двоичными тетрадами (с конца по 4 разряда) и каждую тетраду заменяем 16-й цифрой.
754(8) = 111 101 100 (2) = 1 1110 1100 (2) = 1EC (16)
ответ 3)
2. ответы даны в двоичной системе, в нее все и переводим.
A = 9D(16) = 1001 1101(2);  B = 237(8) = 10 011 111 (2) = 1001 1111(2)
Неравенство записано словами как-то странно.
Если подразумевалось A<C<B, то ответ 1001 1110, т.е. 2)
А если A<C и A<B, то ответы 2), 3), 4), поэтому наверно все же условие было A<C<B.
3. Тут все так же.
A = F7(16) = 1111 0111 (2);  B = 371(8) = 11 111 001(2) - 1111 1001(2)
Неравенству A<C<B удовлетворяет ответ 4)
4. Поскольку кроме "удобных" для сравнения систем по основанию 16,8,2 есть число в десятичной системе, переведем все числа в 16-ю - это наиболее быстро (минимум делений).
347(8) = 11 100 111(2)= 1110 0111(2)=E7(16);
1110  0101(2) = E5(16);
 232(10)/16 = 14, остаток 8 -> 232(10) = E8(16)
Сравниваем E6, E7, E5, E8: наименьшее E5, т.е. 11100101(2)
5. Аналогичное решение.
234(8) = 10 011 100(2) = 1001 1100(2) = 9C(16);
1001 1010(2) = 9A(16);
153(10)/16=9, остаток 9 -> 153(10) = 99(16)
Сравниваем 9B, 9C, 9A, 99: наибольшее 9С, т.е. 234(8)