17 (24). ДІЇ З ГРАФІЧНИМИ ОБ'ЄКТАМИ
ТЕКСТОВОГО ДОКУМЕНТА
1.
Відкрийте вкладку Формат і опишіть, які дії можна виконати з різними група
ми інструментів.
2. До тексту потрібно додати зображення циліндра. Закінчить ланцюжок.
Вставлення —
Фігури -
13. Уставте відповідні цифри.
орно онла
Голее
стрето
Довідка. 1) Колекція шаблонів; 2) Ескізи діаграм; 3) Підказки.
|-- 4. Закресліть зайве.
У текстовому документі основними об'єктами є текст і малюнок. Тому потрі
но вказати б розташування малюнка відносно тексту.
5. Як у програмі LibreOffice Write можна додати малюнок?​

Var so,sr,c:string;
t,k:integer;
begin;
readln(so);
t:=0;
for i:=1 to length(so) do
sr:=sr+'*';
while t<>6 do
begin;
readln(c);
if length(c)<>1 then
 begin;
  writeln('Только одна буква!');
  continue;
 end;
if pos(c,so)<>0 then
 begin;
 for i:=1 to length(so) do
   if so[i]=c then
   begin;
     delete(sr,i,1);
     insert(c,sr,i);
   end;
 writeln(sr);
 writeln('Осталось ',6-t,' попыток');
 end
 else
 begin;
 writeln(sr);
 inc(t);
 writeln('Осталось ',6-t,' попыток');
 end;
 if so=sr then break;
end;
if so=sr then writeln('Вы выиграли') else writeln('Вы проиграли');
end.

Var so,sr,c:string;
t,k:integer;
begin;
readln(so);
t:=0;
for i:=1 to length(so) do
sr:=sr+'*';
while t<>6 do
begin;
readln(c);
if length(c)<>1 then
 begin;
  writeln('Только одна буква!');
  continue;
 end;
if pos(c,so)<>0 then
 begin;
 for i:=1 to length(so) do
   if so[i]=c then
   begin;
     delete(sr,i,1);
     insert(c,sr,i);
   end;
 writeln(sr);
 writeln('Осталось ',6-t,' попыток');
 end
 else
 begin;
 writeln(sr);
 inc(t);
 writeln('Осталось ',6-t,' попыток');
 end;
 if so=sr then break;
end;
if so=sr then writeln('Вы выиграли') else writeln('Вы проиграли');
end.