Есть ответ 👍

Сделайте правильно. напишите программу по : найти произведение элементов массива, кратных 3 и 9. размерность массива - случайные числа от 5 до 500.
(язык программирования - паскаль)​

137
414
Посмотреть ответы 2

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


ответ:

pascalabc.net

begin

  var arr : = arrrandom(15, 5,500);

  arr.where(x -> x mod 3 = 0).where(x -> x mod 9 = 0).product.println;

end.

solov1
4,7(77 оценок)

1. program pr1; uses crt; var n,k,i,t: integer; beginclrscr; write('введите целое число n='); readln (n); for i: =2 to n do begin t: =0; for k: =2 to n do if i mod k=0 then t: =t+1; if t=1 then write(i: 3); end; readln; end.2. program pr2; var a, b: integer; function nod(a, b: integer): integer; var tmp, r: integer; begin if b > a then begin tmp : = a; a : = b; b : = tmp; end; tmp : = a; while tmp > 0 do begin result : = tmp; tmp : = tmp - b; end; end; begin write('a = '); readln(a); write('b = '); readln(b); write('нод: ', nod(a, b)); readln; end.

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

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

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

Caktus Image

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

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

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

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

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

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

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

GTP TOP NEWS