Описать функцию compressstr(s) строкового типа, выполняющую сжатие строки s по следующему правилу: каждая подстрока строки s, состоящая из более чем четырех одинаковых символов c, заменяется текстом вида «с{k}», где k — количество символов c (предполагается, что строка s не содержит фигурных скобок «{» и «}» например, для строки s = «bbbccccce» функция вернет строку «bbbc{5}e». с функции compressstr сжать пять данных строк решить на паскале! надо!

Могу сделать к завтрашнему дню.

#include < stdio.h> int main() {   int a[20], b[30], c[20], lenc = 0;   for(int i = 0; i < 20; i++) scanf("%d", & a[i]);   for(int i = 0; i < 30; i++) scanf("%d", & b[i]);   for(int i = 0; i < 30; i++)     for(int j = 0; j < 20; j++)       if(b[i] == a[j]) {         c[i] = b[i];         lenc++;         for(int k = j; k < 20; k++)           if(a[k] == b[i]) a[k] = 0;         b[i] = 0;         break;       }   for(int i = 0; i < lenc; i++) printf("%d ", c[i]); }

Var a: integer; begin write('введите номер месяца: '); readln(a);   case a of     1: writeln('январь.31 день');     2: writeln('февраль.29 дней');     3: writeln('март.31 день');     4: writeln('апрель.30 дней');     5: writeln('май.31 день');     6: writeln('июнь.30 дней');     7: writeln('июль.31 день');     8: writeln('август.31 день');     9: writeln('сентябрь.30 дней');     10: writeln('октябрь.31 день');     11: writeln('ноябрь.30 дней');     12: writeln('декабрь.31 день'); end; end. 2. var a: integer; begin writeln('введите число:   '); readln(a); case a of 1: write(a, '  копейка'); 2..4: write(a, '  копейки'); 5..20: write(a, '  копеек'); end; end.