Задание 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 бит.
