Объяснение:
text = "Программа! " # Переменная text Содержит строку "Программа! "
print(text [0:10]) # Индексирование каждого символа строки. [:] - Это срез. [0:10] - Вывести 10 символов - Целая строка, но только без пробела в конце строки, тк заданная команда выводит все символы строки (Если было бы [0:11] - то пробел конечно же был бы включен)
print(text [0:4]) # Вывести символы от индекса 0 - Это символ П, до индекса 4 - Это символ Р. Результат: Прог
print(text [-2]) # Отрицательное значение, обычно применяется для того, чтобы взять что-либо с конца строки, списка и т.п..
print(text [::3]) # Вывести каждый символ с чередованием 3 символа. Так скажем... Перешагнуть 2 символа, и уже 3й распечатать
var a: array[1..20] of integer = ( 20, 9, 24, 12, 23, 24, 21, 17, 1,
15, 25, 8, 21, 2, 6, 4, 12, 16, 8, 13);
i,j,k: integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[j]<a[i] then swap(a[i],a[j]);
writeln('отсортированный массив: ');
for i:=1 to n do write(a[i],' ');
writeln;
k:=0;
i:=1; j:=2;
repeat
if a[j]-a[i]>=3 then
begin
writeln('пара: ',a[i],' ',a[j]);
i:=j;
inc(k);
end;
inc(j);
until j>n;
writeln('количество солдат:k+1);
end.
отсортированный массив:
1 2 4 6 8 8 9 12 12 13 15 16 17 20 21 21 23 24 24 25
пара: 1 4
пара: 4 8
пара: 8 12
пара: 12 15
пара: 15 20
пара: 20 23
количество солдат: 7