Восстановите последовательность действий по созданию нового стиля из выбранного фрагмента с форматированием вручную. ответ введите строчными буквами без пробелов.

а) Щёлкните на стрелку рядом со значком Создать стиль из выделенного и выберите Создать стиль из выделенного в подменю.

б) Выберите команду Формат – Стили и форматирование.

в) Введите имя в поле Имя стиля.

г) Щёлкните в том месте документа, откуда требуется скопировать стиль, например, внутри абзаца, к которому было применено форматирование вручную.

д) Нажмите кнопку ОК.

е) Щёлкните на значок категории стиля, который требуется создать.

гбаевд как то так получилось

агбедв по смыслу подходит

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.

var

i: integer;

a: array[1..20] of integer;

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.