1. Для формирования трехзначного кода использовали символы A, B, C, D. В конце цепочки находится одна
из букв A, B, C. На первом месте — одна из букв А, С, D,
которой нет на третьем месте. В середине - одна из букв
A, C, D, которой нет на первом месте. Описанному пра-
Вилу соответствует последовательность:
1) AAC
2) DBD
3) DDB
4) CDA​

CDD,BAA,DCC

Объяснение:

попробуй если не так но не знаю взламывал пентагон

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.

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.

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.