Составить программу, выполняющую следующие действия: вводит с клавиатуры строку 'bloomedapplesandpears' (расцветали яблони и груши определяет номер позиции, в которой находится буква r в исходной строке. меняет местами слова ' bloomed ' и 'pears'. удаляет из исходной строки подстроку 'applesand '.

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  var s:=ReadlnString('>');
  var w1:='Bloomed';
  var w2:='pears';
  var w3:='applesand';
  var i:=Pos('r',s);
  Writeln('Позиция r: ',i);
  i:=Pos(w2,s);
  s:=s[:i]+w1;
  s:=w2+s[w1.Length+1:];
  Writeln(s);
  i:=Pos(w3,s);
  Delete(s,i,w3.Length);
  Writeln(s)
end.

Тестовое решение
> Bloomedapplesandpears
Позиция r: 20
pearsapplesandBloomed
pearsBloomed

//Pascal ABC.NET 3.1 сборка 1256

Var
 s,s1:string;
begin
readln(s);
writeln(pos('r',s));
s1:='Bloomed';
delete(s,1,length(s1));
insert('pears',s,1);
delete(s,length(s)-length('pears')+1,length(s1));
insert(s1,s,length(s)+1);
writeln(s);
delete(s,pos('applesand',s),length('applesand'));
writeln(s);
end.

Вывод:
20
pearsapplesandBloomed
pearsBloomed

javascript:

function Вычислить(число) {  

var массив = [], м1 = [], м2 = [], с1 = 0, с2 = 0;  

for (let сч = 1; сч <= число; сч++) массив.push(сч);  

for (let сч = число - 1; сч >= 0; сч--)  

 if (с1 > с2) { м2.push(массив[сч]); с2 += массив[сч]; }  

 else { м1.push(массив[сч]); с1 += массив[сч]; }  

if (с1 != с2) return false;  

else {  

 var рез = "";  

 for (let сч = 1; сч <= число; сч++)  

  if (м1.indexOf(сч) != -1) рез += "+"; else рез += "-";  

 return рез;  

}

}

document.write(Вычислить(8) + "<br />");

document.write(Вычислить(15) + "<br />");

document.write(Вычислить(40) + "<br />");

document.write(Вычислить(99) + "<br />");

+--++--+

--++--++--++--+

+--++--++--++--++--++--++--++--++--++--+

--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--+

Графика это искуство изображать предметы линиями штрихами без красок,а так же произвидение искуства

Растровая состоит из разнацветных точек,а векторная из геометреческих фигур.

Особенность растрового изображения в том, что оно, как мозаика, складывается из маленьких ячейковых кусочков – пикселей. И чем выше разрешение, тем большее количество пикселей умещается на единицу площади.

В отличие от растрового изображения, векторное не состоит из отдельных точек – пикселей. Логика векторного изображения совсем другая. В векторных графических объектах существуют, так называемые, опорные точки, между ними – кривые. Кривизна этих кривых описывается математической формулой.