a156bc
s = 123456
q = abc
delete (s,2,3) = 156
(/// Удаляет из строки s count символов с позиции index
procedure Delete(var s: string; index, count: integer);)
insert (s,q,2) = a156bc
(/// Вставляет подстроку source в строку s с позиции index
procedure Insert(source: string; var s: string; index: integer);)
<span>N=A+B+C-N
</span>Если N=A+B, то N=A+B+C-N=A+B+C-С=A+B, следовательно N=C
<span>N=A
IF N > В THEN N = В (это условие надо нарушить A<B)
IF N < C THEN N = C </span>(это условие надо сделать A<С)
A<B и A<С
<span>
Ответ: </span><span>в) А < В и А < С</span><span>
</span>
// Насколько я смог разобрать, тебе нужно это
const n = 5;
var a: array [1..n] of integer;
i, j, imax, x: integer;
begin
randomize;
for i:=1 to n do
a[i]:=random(90);
writeln('Исходный массив: ');
for i:=1 to n do
writeln('a['+i+'] = '+a[i]);
writeln();
for i:=1 to n-1 do
begin
imax:=i;
for j:=i+1 to n do if a[j]>a[imax] then imax:=j;
x:=a[i];
a[i]:=a[imax];
a[imax]:=x;
end;
writeln('Отсортированный по убыванию массив: ');
for i:=1 to n do
writeln('a['+i+'] = '+a[i]);
writeln();
end.
# # Код на ruby 2.2.3p173
max = 0
max_last = 0
min = 1000
min_last = 1000
n = 0
begin
max_last = max
min_last = min
File.open("input.txt", "r") do |infile|
line = infile.gets.strip
p line
n = line.to_i if n == 0
while (line = infile.gets)
p line
number = line.strip.to_i
max = number if max == 0 or number == max + 1
min = number if min == 1000 or number == min - 1
p [min, max]
end
end
end until (max == max_last and max < n) or (min > 0 and min == min_last) or (min == 0 and max == n)
p max + 1 if max == max_last and max < n
p min - 1 if min > 0 and min == min_last
p "error" if min == 0 and max == n
Числу в 16 системе счисления числу 13 буква. (В)