написать программу на паскале.

1) 23+16=39 символов было в сообщении первоначально

2) 23 × 1 байт = 23 байт общий объем первого сообщения без русского алфавита

3) 16 × 2 байта = 32 байт информационный объем сообщения русского алфавита до перекодировки

4) 23+32=55 байт - информационный объем сообщения до перекодировки

5) 39 × 2 байт = 78 байт информационный обем сообщения после перекодировки ( в Unicode 1 символ - 2 байта)

6) 4 Кбит ×1024/8 = 512 байт объем добавленного сообщения

7) 78+512 = 590 байт стал информационный объем сообщения после добавления еще одного сообщения

8) 590 - 55 = 535 байт увеличился итоговый информационный объем

ответ: 535 байт

#include "stdafx.h"
#include<iostream>
#include<time.h>
#include<list>
using namespace std;

const int N = 15;
list<int> A;list<int> C;
void print(list<int> x){

while(!x.empty()){

cout<<x.front()<<" ";
x.pop_front();}
}
void make(list<int>& x){

for (int i = 0; i < N;i++){
x.push_back(rand()%29+1);
}
}

void main(){

srand(time(NULL));
make(A);
list<int> tmp = A;
print(A);
_01:cout<<"\nWrite digit to change: ";int digit(0); cin>>digit;
A.remove(digit);//удаляю введене число
int newdigit = digit+15;// збільшую нове число, щоб не повторилось случайно з видаленим
int size = N - A.size();//узнаю скільки чисел удалило
for (int i = 0; i < size; i++) A.push_back(rand()%newdigit+1); //добавляю нові значення замість видалених
if (size!=0){

cout<<"OK\nAFTER CHANGE\n";
print(A);cout<<endl;
}
else {cout<<"What you want to change?? digit not exist!!"; goto _01;}

int n(0),k(0);
cout<<"Delete n element from k position Write n: ";cin>>n;
cout<<"Write k ";cin>>k;
int cout1(0);
list<int>::iterator m;
m = A.begin();
for (int i = 0; i < k; i++) *m++;
for (int i = 0; i < n; i++) {

A.remove(*m++); cout1++;//бо так нада
}
int how = N - A.size() - n;
for (int i = 0; i< how; i++) A.push_back(rand()%29+1);
print(A);list<int> B = A; int sizeB = B.size();
cout<<"\nAFTER CONCAT C = \n";
for (int i = 0 ; i < N; i++) {C.push_back(tmp.front()++); tmp.pop_front();}
for (int i = 0 ; i < sizeB; i++) {C.push_back(B.front()++); B.pop_front();}
cout<<endl;
print(C);

cout<<"\n";
system("pause");
}