Здравствуй! Все в перемешку и нет обьявление переменных
Объяснение:
После того как не было ошибок консольное приложение запустилось
После выполнение очистки консоли выводится подсказка для пользователя, по подсказке вводим текст
После ввода текста, переменеая присваевает его
Происходит сравнение больше или равно по циклу если истинно true или ложь falce(может быть не больше и не равно !＝) в этом ложь
Дальше у тебя должно быть под каждым begin end; у каждого начала свой конец
Таже продолжается проверка условие begin и end;
Ранее переменная s по введенным данным была присвоена цифре продолжается проверка условий true и folse по выражении ранее (I<=Length(s)) продолжается проверка условие
Еще раз выводит после сравнение значение на переменную(не сама она, а значение ее)после подсказки и завешается работа программы
end.
Вначале определим, что такое кодирование (также и кодирование сообщений) методом 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 (лучше бы не кодировали :) )
begin
for i:= 1 to 100 do write ('i')
end.