ПИТОООН.Даны строки S1, S2 и символ C. После каждого вхождения символа С в строку S1 вставить строку S2.
Пошт да отвори S1 и 2 Уладить из строки S1 все подстроки, совпадающие с S2
​

Задание 1

a)

program pr;

var

s:string;

c:char;

i:integer;

begin

writeln('Введите имя и фамилию в одной строке');

readln (s);

writeln('Введите заданный символ');

readln (c);

for i:=1 to length(s) do if s[i]=c then writeln ('В строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n:string;

c:char;

i:integer;

begin

writeln('Введите имя и фамилию в одной строке');

readln (s);

i:=1;

while s[i]<>' ' do i:=i+1;

n:=copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f:string;

c:char;

i:integer;

begin

writeln('Введите имя и фамилию в одной строке');

readln (s);

i:=1;

while s[i]<>' ' do i:=i+1;

n:=copy(s,1,i-1);

f:=copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

Задание2

program pr;

var s:string;

begin

s:='Касіу Ясь канюшыну';

delete (s,7,3);

insert ('Ясь',s,7);

writeln (s);

readln;

end.

Задание 3

а)

program pr;

var

s:string;

begin

s:='реки горы и болота';

delete (s,6,5);{удаляем включая пробел}

writeln (s);

readln;

end.

б)

program pr;

var

s:string;

begin

s:='реки горы и болота';

delete(s,13,6);

s:=s+'озера';

writeln (s);

readln;

end.

надеюсь правильно

Объяснение:

Определим количество зрителей (мест):

35*40 = 1400

То есть нужно определить количество бит, которое требуется для кодирования 1400 номеров.

Для кодирования 1400 номеров требуется как минимум 11 бит. Разберемся, почему так:

С десяти бит мы можем закодировать максимум 1024 номера, т.к. 2^10 = 1024 (степень двойки - это количество бит). То есть десяти бит явно не достаточно для кодирования 1400 номеров.

Зато с одиннадцати бит мы можем закодировать 2^11=2048 номеров, и этого достаточно для кодирования 1400 номеров.

Один номер занимает 11 бит, объем 216 номеров равен:

216*11 = 2376 бит

ответ: 2376 бит.