ответьте не во в конце
program n_8;
var х, n: integer; begin
writeln ('Исследование функции random');
randomize (*для генерации различных случайных
чисел при каждом запуске программы *);
write ('Введите х»');
readln (х) ;
write ('Введите n»'); readln (n);
writeln ('random ( ' , х, ') = ', random(x));
writeln ('random ( ', x, ') + ', n, ' = ', random (x)+n)
end.

Как можно получить случайное число из интервала (0, х)?
Как можно получить случайное число из интервала (0, х]?
Как можно получить случайное число из интервала (n, х + n)?

Объяснение:

Вначале определим, что такое кодирование (также и кодирование сообщений) методом RLE:

"Кодирование длин серий (англ. run-length encoding, RLE) или кодирование повторов — алгоритм сжатия данных, заменяющий повторяющиеся символы (серии) на один символ и число его повторов. Серией называется последовательность, состоящая из нескольких одинаковых символов. При кодировании (упаковке, сжатии) строка одинаковых символов, составляющих серию, заменяется строкой, содержащей сам повторяющийся символ и количество его повторов." Если внимательно это прочитать, то сразу становится понятно, как решать ваше задание:

1.) ИВВВ111у - 1И3В311у4ф

2.) еВпппВ11уфффуугггддд - 1е1В3п1В211у3ф2у3г3д

3.) РРппВ12уллл3336 - 2Р2п1В11121у3л4р3316

(жирным шрифтом обозначено количество одинаковых символов в строке, обозначается повторяющийся символ сразу после числа, прописаного жирным шрифтом).

Также можно сосчитать во сколько раз уменьшилась строка (то есть эффективность данной кодировки):

Для первой строки: 12÷10 = 1.2 (эффект присутствует)

Для второй строки: 20÷20 = 1 (никакого эффекта, к сожалению)

Для третей строки: 19÷20 = 0.95 (лучше бы не кодировали