Регистрация Спросить otvet5GPT
lizasolnce2004
04.10.2020 06:47
Информатика
Есть ответ 👍

НАПИШИТЕ В ПАСКАЛЕ ЭТИ ДВЕ ПРОГРАММЫ МНОГО БАЛЛОВ

251
302
Посмотреть ответы 3

Ответы на вопрос:

anastasia738393
anastasia738393
4,6(57 оценок)

--- PascalABC.NET 3.6.2 ---

#1

begin

 var A := ArrRandom(70, -99, 99);

 A.Println;

 A.Where(p -> (Abs(p).ToString.Length = 2) and (p mod 10 = 3)).Aggregate(BigInteger.One, (p, q) -> p * q).Println;

end.

#2

begin

 var A := ArrRandom(70, -999, 999);

 A.Println;

 A.Where(p -> (Abs(p).ToString.Length = 3) and (p mod 5 <> 0)).Average.Println;

end.

Объяснение:

Aldiyar0708
Aldiyar0708
4,8(51 оценок)

begin

 // 1

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -150, 150);

 a.Println;

 a.Where(p-> Abs(p) in 10..99).Product(p-> BigInteger(p)).Println;

 // 2

 var b := ArrRandom(n, -150, 150);

 a.Println;

 a.Where(p -> (Abs(p) in 100..999) and (p mod 5 <> 0)).Average.Print;

end.

ilonasusak77
ilonasusak77
4,4(30 оценок)

передача

Объяснение:

думаю так.прости если неправильно

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS