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

Lib2019. (c++) в поисках для третьего тура олимпиады netoi-2018 два члена жюри решили посетить помещение, где хранятся бумажные архивы старых олимпиад «догугливской» эпохи. архив размещен в просторном зале в форме многоугольника без самопересечений (но не обязательно выпуклый). коллеги решили, что безопаснее будет не терять друг друга из виду. на каком максимальном расстоянии могут находиться коллеги, чтобы не терять друг друга из виду и не выходить за пределы архива? члены жюри видят друг друга, если между ними можно провести отрезок, ни одна из точек которого лежала бы извне архива. технические условия. программа lib2019 читает с клавиатуры число n (3 ≤ n ≤ 300) количество вершин многоугольника. далее следуют n пар целых чисел (каждое из которых не превышает 1000 по абсолютной величине) - координаты вершин многоугольника в порядке обхода по или против часовой стрелки. многоугольник не имеет ни самопересечений, ни самокасаний. программа должна вывести единственное число - ответ на с точностью не менее 5 знаков после запятой. пример ввод 4 2 2 2 3 3 3 3 2 вывод 1.414213

👇
Открыть все ответы
Ответ:
meeeoooowww
meeeoooowww
24.08.2022
Sub maxZn()'заполнение массива  Dim mas(20)  S = ""  Randomize  For i = 1 To 20    mas(i) = Round(Rnd(100) * 100)    S = S + Str(mas(i)) + ","  Next i'поиск максимального числа и количества его повторений   qty = 1   max = mas(1) 'предполагаем, что максимальное число в первом элементе массива    For i = 2 To 20    If mas(i) = max Then      qty = qty + 1    End If    If mas(i) > max Then      max = mas(i)      qty = 1    End If  Next i     MsgBox "последовательность чисел " + S  MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty)  End Sub
Sub test()  Call maxZnEnd Sub
Дана последовательность чисел. выяснить, сколько раз в ней встречается наибольшее число.(basic)
4,8(94 оценок)
Ответ:
Hamrod
Hamrod
24.08.2022
1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.

 
4,4(66 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ