М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
murka0210
murka0210
20.11.2022 08:29 •  Информатика

1.как с клавиатуры присоединить нижерасположенный абзац.
1.shift+enter
2.shift+delete
3.delete, backspace

2. для применения многоуровневого списка, необходимо, чтобы абзацы отличались:
1.отступом слева
2.стилями формата
3.отступом справа

3.каким можно отформатировать абзац.
1.разметка страниц – абзац
2.рецензтрование - изменения – принять
3.главная – абзац

4.как изменить номер, с которого начинается нумерация страниц.
1.разметка страниц - параметры страниц
2.рецензирование – изменения
3.вставка – колонтитулы

5. что такое стиль документа
1.внешний вид документа, начиная с заголовка
2.набор используемых шрифтов в тексте
3.формат абзаца и формат символов

6. как выделить абзац с мыши
1.двойной щелчок на первой букве
2.тройной щелчок внутри абзаца
3.щелчок в области выделения

7. как внедрить объект в документ
1.главная - буфер обмена – вставить
2.вставка - специальная вставка – объект
3.вставка - текст – объект

8. как можно изменить стиль обтекания рисунка текстом
1.разметка страниц - упорядочить - обтекание текстом
2.вид - окно - упорядочить все
3.вставка - иллюстрации - рисунок

9. как при ленты вставить разрыв страницы
1.разметка страницы - параметры страницы – разрывы
2.вставка - разрыв страницы

10. как задать особый колонтитул для первой страницы
1.разметка страниц - параметры страниц - колонки
2.работа с колонтитулами - конструктор – параметры
3.разработчик - элементы - режим конструктора

11. как автоматизировать процесс ввода повторяющихся словосочетаний
1. главная - вставить - специальная вставка
2.вставка - текст – экспрессблоки
3.рецензирование - отслеживание - область проверки

12. оглавление документа можно сделать автоматически,
1. заголовки собраны в отдельное место командой автотекст
2.заголовки оформлены одним из заголовочных стилей
3.при создании оглавления заголовки выделены

👇
Открыть все ответы
Ответ:
akaev1087
akaev1087
20.11.2022
Можно заметить, что самый большой угол в треугольнике всегда расположен напротив самой длинной стороны, которую мы обозначим буквой с.
Значение такого угла можно найти по теореме косинусов:
\displaystyle \cos(C)= \frac{a^2+b^2-c^2}{2ab}
В остроугольном треугольнике угол всегда будет меньше 90 градусов, поэтому его косинус всегда будет положительным. В прямоугольном треугольнике косинус будет равен нулю, а в тупоугольном он будет отрицательным. На этом можно построить решение, предварительно определив, какая из сторон является самой длинной. И, само собой разумеется, надо сразу после ввода проверить условие существования треугольника, т.е. чтобы сумма длин двух его любых сторон была больше третьей.

var
  a,b,c,a1,b1,c1,cosC:real;
begin
  Write('Введите длины сторон треугольника: ');
  Read(a,b,c);
  Write('Треугольник ');
  if (a<(b+c)) and (b<(a+c)) and (c<(a+b)) then begin
    if a>b then
      if a>c then begin c1:=a; a1:=c; b1:=b end
      else begin c1:=c; a1:=a; b1:=b end
    else
      if b>c then begin c1:=b; a1:=a; b1:=c end
      else begin c1:=c; a1:=a; b1:=b end;
    cosC:=(sqr(a1)+sqr(b1)-sqr(c1))/(2*a*b);
    if cosC<0 then Writeln('тупоугольный')
    else
      if cosC=0 then Writeln('прямоугольный')
      else Writeln('остроугольный')
  end
  else Writeln('построить невозможно')
end.

Тестовое решение:
Введите длины сторон треугольника: 6 4.1 4
Треугольник тупоугольный
4,4(66 оценок)
Ответ:
vitek0000
vitek0000
20.11.2022
Const
  n=50;
var
  f:Text;
  s:string;
  ss:array of string;
  a:array[1..n] of string;
  i,j:integer;
begin
  Assign(f,'input.txt'); Reset(f);
  j:=0;
  while not Eof(f) do begin
    Readln(f,s);
    ss:=s.Split(' ');
    for i:=0 to Length(ss)-1 do
      if Length(ss[i])>1 then
        if RightStr(ss[i],2)='of' then
        begin Inc(j); a[j]:=ss[i] end;
  end;
  Close(f);
  for i:=1 to j do Write(a[i],' ');
  Writeln
end.

Тестовое решение:
123of asdfdsof dasof

Есть решение и покороче, но совсем не уровня начинающих:
uses
  System.Text.RegularExpressions;
const
  n=50;
var
  f:Text;
  s:string;
  a:array[1..n] of string;
  i,j:integer;
begin
  Assign(f,'input.txt'); Reset(f);
  j:=0;
  while not Eof(f) do begin
    Readln(f,s);
    foreach var m:Match in Regex.Matches(s,'\b\S+of\b') do
    begin Inc(j); a[j]:=m.Value end;
  end;
  Close(f);
  for i:=1 to j do Write(a[i],' ');
  Writeln
end.
4,4(86 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ