Каждый сотрудник предприятия получает электронный пропуск, на котором
записаны личный код сотрудника, код подразделения и некоторая
дополнительная информация. личный код состоит из 17 символов, каждый
из которых может быть одной из 12 допустимых заглавных букв или одной
из 8 цифр (цифры 0 и 3 не используются). для записи кода на пропуске
отведено минимально возможное целое число байтов. при этом используют
посимвольное кодирование, все символы кодируют одинаковым минимально
возможным количеством битов. код подразделения – натуральное число,
не превышающее 1000, он записан на пропуске как двоичное число и
занимает минимально возможное целое число байтов. всего на пропуске
хранится 36 байт данных. сколько байтов выделено для хранения
дополнительных сведений об одном сотруднике? в ответе запишите только
целое число – количество байтов

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.

program pr;

var s: string;

begin

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

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.

60,111100,3c,74

количество кбайт умножаете на 1024 получаете количество символов 3,5*1024=3584

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так