<span>Сортировка методом пузырька (по возрастанию)
procedure MassivSort(var arr : array of Real; const N : Integer);var I: Integer; J: Integer; K: Integer; M: Real;begin for i:=1 to N do begin m:=Arr[i-1]; k:=i; for j:=i to n do begin if m>Arr[j-1] then begin m:=Arr[j-1]; k:=j; end; end; Arr[k-1]:=Arr[i-1]; Arr[i-1]:=m; end;end;
Сортировка по убыванию:
<span>procedure sort;
var i , j , tmp : integer;
begin
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] < a[j] then begin
tmp := a[i];
a[i] := a[j];
a[j] := tmp;
end<span>;</span></span>
</span>
function fn(s:string):string;
var i:integer;
begin
i:=pos('минус',s);
while i>0 do
begin
delete(s,i,5);
insert('плюс',s,i);
i:=pos('минус',s);
end;
fn:=s;
end;
var b:string;
begin
readln(b);
write(fn(b));
end.
Пример:
минус + плюс - минус = 0
плюс + плюс - плюс = 0
//0) Мы хотим найти сумму цифр четырёхзначного числа x.
//1) Сохраним первую цифру числа x:
int a = x / 1000;
//2) Сохраним вторую цифру числа x:
int b = (x / 100) % 10;
//3) Сохраним третью цифру числа x:
int c = (x / 10) % 10;
//4) Сохраним четвёртую цифру числа x:
int d = x % 10;
// Ответ: a+b+c+d
int ans = a + b + c + d;
50 Кбайт = 51200 байт = 409600 бит
409600÷16÷40=640бит на одну строку.
640÷16=40 символов
Ответ: в строке 40 символов.