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

В) инопланетяне сообщили, что в их системе 3 планеты а, б, в ичто они живут на второй планете. вдруг передатчик испортился и двасообщения: а – не третья, б – не вторая, ― оказались ложными. накакой планете живут разумные существа?

👇
Ответ:
olyascochilyas
olyascochilyas
14.01.2021
Гаверное на б а нам бы очень хотелось бы узнать стоимость коттеджа в Подмосковье
4,4(44 оценок)
Открыть все ответы
Ответ:
vorske
vorske
14.01.2021
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var v:=SeqRandom(n,-99,99).Select(t->0.1*t).ToArray;
  v.Println;
  var imin:=v.Select(t->Abs(t)).ToArray.IndexMin;
  Writeln('Номер минимального по модулю элемента- ',imin+1);
  var fn:=v.Select((x,i)->(x,i)).Where(t->t[0]<0).First[1];
  Writeln('Сумма модулей элементов после первого отрицательного равна ',
      v[fn+1:].Sum(t->Abs(t)));
  var (a,b):=ReadReal2('Введите границы интервала значений для удаления:');
  v:=v.Where(t->not t.Between(a,b)).ToArray;
  var m:=n-v.Length;
  if n>0 then begin
    SetLength(v,n);
    for var i:=v.Length to n-1 do v[i]:=0.0
    end;
  v.Println
end.

Пример
n= 15
-9.4 3.9 6.2 -2.5 -5.2 9 4.9 -9.5 4.4 2.4 -8.8 3.1 -7.7 5.6 8.9
Номер минимального по модулю элемента- 10
Сумма модулей элементов после первого отрицательного равна 82.1
Введите границы интервала значений для удаления: -20 2
3.9 6.2 9 4.9 4.4 2.4 3.1 5.6 8.9 0 0 0 0 0 0
4,4(15 оценок)
Ответ:

Когда-то давно жили Периандр — тиран города Коринфа, и несравненный музыкант Арион, лучше которого никто не играл на кифаре. Большую часть жизни Арион провёл у Периандра, но затем отправился в Италию и Сикелию, где «нажил великое богатство». Когда же он решил вернуться в Коринф, то нанял корабль и отправился в морское путешествие.

На беду Ариона, корабельщики оказались бесчестными людьми, решившими ограбить известного музыканта и убить его. Арион умолял «сохранить ему жизнь, предлагая отдать все свои сокровища», но разбойники были непреклонны. Они предложили несчастному выбор — дать себя убить на корабле и упокоить свой прах в земле, или же самому броситься в море и утонуть.

Арион выбрал второе и напоследок попросил у своих мучителей возможность спеть.

Тогда корабельщики перешли с кормы на середину корабля, радуясь, что им предстоит услышать лучшего певца на свете.

Музыкант «взял кифару и, стоя на корме, исполнил торжественную песнь», после чего бросился в море и пропал из вида.

Однако Арион не погиб — дельфин, покорённый удивительным пением и игрой на кифаре, подхватил тонущего музыканта и доставил его к берегу. Так Арион оказался у города Тенар, что находился неподалеку от Коринфа. Добравшись до родного города, Арион Периандру на коварных корабельщиков.

Тиран не поверил рассказу, «велел заключить Ариона под стражу и никуда не выпускать» до выяснения обстоятельств. Тем временем в Коринф прибыл корабль, который нанимал Арион. Периандр пригласил во дворец корабельщиков, и принялся расспрашивать их об Арионе. Те отвечали, что известный музыкант по-прежнему находится в Сицилии.

В этот момент появился Арион, и «поражённые корабельщики не могли уже отрицать своей вины». Вероломные предатели были казнены, а спустя время жители Коринфа установили небольшую медную статую — «жертвенный дар Ариона, изображающий человека на дельфине».

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