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

Ваня шифрует слова, записывая вместо каждой буквы её номер в алфавите(без пробелов). номера букв указаны в таблице: а 1 е 6 й 11 о 16 у 21 ш 26 э 31 б 2 ё 7 к 12 п 17 ф 22 щ 27 в 3 ж 8 л 13 р 18 х 23 ъ 28 г 4 з 9 м 14 с 19 ц 24 ы 29 д 5 и 10 н 15 т 20 ч 25 ь 30 некоторые шифровки можно расшифровать не одним например, 12181620 может означать "крот", а может - "аужает" или "кажот". даны 4 шифровки: 5212 4620 61920 53212 только одна из них расшифровывается единственным найдите её и расшифруйте. результат расшифровки запишите в качестве ответа.

👇
Ответ:
katyamineeva02
katyamineeva02
27.04.2021
Единственное слово, которое можно рас шифровать только одним
Т.к 46 - не может быть (нет столько букв в алфавите)
Значит 4 точно первым - Г
62 - тоже не может быть.
Значит следующая буква под номером 6 - Е
Дальше возможный вариант 20 (и только он) - Ч
Если не понятно почему 20 нельзя рас шифровать как 2 и 0, то подумайте - есть в алфавите нулевая буква :)
Слово получилось ГЕЧ (такого наверняка нет в русском языке, но зато наверняка можно рас шифровать только так)
Надеюсь на благодарность!
4,5(5 оценок)
Открыть все ответы
Ответ:
zagudaevaa
zagudaevaa
27.04.2021
Function Intg(p, b: real; n: integer; eps: real): real;
{Метод прямоугольников, рекурсия}
var
  a, x, h, s: real;
  i: integer;
begin
  a := 0;
  h := (b - a) / n;
  x := a;
  s := 0;
  for i := 1 to n do
  begin
    s := s + sin(x);
    x := x + h;
  end;
  if abs(s * h - p) > eps then
    Intg := Intg(s * h, b, 2 * n, eps)
  else
    Intg := s * h;
end;

var
  b, eps: real;

begin
  write('Задайте верхний предел интегрирования и точность: ');
  Readln(b, eps);
  writeln('Значение интеграла: ', Intg(0, b, 2, eps):0:7);
end.

Тестовое решение:

Задайте верхний предел интегрирования и точность: 2 0.000001
Значение интеграла: 1.4161460

Точное значение интеграла равно 1-cos(2) ≈1.416146836, т.е. заданная точность обеспечивается.
4,7(5 оценок)
Ответ:
Prinsess1
Prinsess1
27.04.2021
Можно заметить, что самый большой угол в треугольнике всегда расположен напротив самой длинной стороны, которую мы обозначим буквой с.
Значение такого угла можно найти по теореме косинусов:
\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,6(29 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ