Const n=20; 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.
В качестве исходной фразы используйте:
Джинсы порезаны, лето, три полоски на кедах
2. Выполнить вручную шифрование сообщения при шифрующей системы Трисемуса.
В качестве исходной фразы используйте:
Под небом голубым есть город золотой
3. Выполнить вручную шифрование сообщения при лозунгового шифра.
В качестве исходной фразы используйте:
Я шагаю по пpoспектy, по ночномy гоpодy.
В качестве ключа используйте слово «Аквамарин»
4. Выполнить вручную шифрование сообщения при шифра табличной маршрутной перестановки.
В качестве исходной фразы используйте:
Я не знаю, где ошиблись мы в расчетах
5. Выполнить вручную кодирование сообщения методом RLE.
В качестве исходной фразы используйте:
РРппВ12уллл3336
6. Выполнить вручную кодирование сообщения методом RLE.
В качестве исходной фразы используйте:
еВпппВ11уфффуугггддд
7. Выполнить вручную кодирование сообщения методом RLE.
В качестве исходной фразы используйте:
ИВВВ111у
Заранее за ответы!